home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
t2win_16.zip
/
T2WIN-16.FRM
< prev
next >
Wrap
Text File
|
1996-01-07
|
280KB
|
8,986 lines
VERSION 4.00
Begin VB.Form frmT2W
BorderStyle = 4 'Fixed ToolWindow
Caption = "TIME TO WIN (16-Bit Demo)"
ClientHeight = 8115
ClientLeft = 285
ClientTop = 465
ClientWidth = 9105
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 8460
Left = 255
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8115
ScaleWidth = 9105
ShowInTaskbar = 0 'False
Tag = "c"
Top = 150
Width = 9165
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 480
Left = 8550
Picture = "T2WIN-16.frx":0000
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 0
Top = 180
Visible = 0 'False
Width = 480
End
Begin VB.ComboBox Combo2
Height = 300
Left = 6570
TabIndex = 4
Top = 450
Width = 1185
End
Begin VB.TextBox Text1
Height = 285
Left = 3150
TabIndex = 10
Text = "Text1"
Top = 7740
Width = 5865
End
Begin VB.Frame Frame1
Height = 1455
Left = 90
TabIndex = 6
Top = 6210
Visible = 0 'False
Width = 8925
Begin VB.ListBox List1
Height = 1200
Left = 180
TabIndex = 7
Top = 180
Width = 4155
End
Begin VB.ListBox List2
Height = 1200
Left = 4590
TabIndex = 8
Top = 180
Width = 4155
End
End
Begin VB.CommandButton Command1
Caption = "&Start demo for the selected item"
Height = 285
Left = 90
TabIndex = 2
Top = 450
Width = 4065
End
Begin VB.ComboBox Combo1
Height = 300
Left = 90
TabIndex = 1
Top = 90
Width = 7665
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "&Text for string manipulation"
ForeColor = &H80000008&
Height = 195
Left = 90
TabIndex = 9
Top = 7785
Width = 2985
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "&Iterations for speed test"
Height = 195
Left = 4320
TabIndex = 3
Top = 510
Width = 2175
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Height = 5340
Left = 90
TabIndex = 5
Top = 810
Width = 8925
WordWrap = -1 'True
End
End
Attribute VB_Name = "frmT2W"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Option Base 1
Dim Item As Integer
Dim ItemFile As Integer
Dim ItemMean As Integer
Const RandI = 32767
Const RandL = 2147483647
Const RandS = 1E+10!
Const RandD = 1E+16
Dim Tmp As String
Private Sub Combo2_Click()
Item = Val(Combo2.Text)
ItemFile = Val(Combo2.Text)
ItemMean = Val(Combo2.Text)
End Sub
Private Sub Command1_Click()
Static Flag As Integer
If (Flag = True) Then Exit Sub
frmT2W.Tag = cGetIn(cEXEnameActiveWindow(), ".", 1)
cDisableFI Picture1
Flag = True
MousePointer = 11
Frame1.Visible = False
List1.Clear
List2.Clear
List1.FontBold = True
List2.FontBold = True
Label3.Caption = ""
DoEvents
Select Case Combo1.ListIndex
Case 0
Frame1.Visible = True
Call TestAddI
Case 1
Frame1.Visible = True
Call TestDeviationI
Case 2
Frame1.Visible = True
Call TestFillI
Case 3
Frame1.Visible = True
Call TestMaxI
Case 4
Frame1.Visible = True
Call TestMeanI
Case 5
Frame1.Visible = True
Call TestMinI
Case 6
Frame1.Visible = True
Call TestSetI
Case 7
Frame1.Visible = True
Call TestSumI
Case 8
Frame1.Visible = True
Call TestSortI
Case 9
Frame1.Visible = True
Call TestReverseSortI
Case 10
Call TestAddTime
Case 11
Call TestTimeBetween
Case 12
Call TestCheckTime
Case 13
Call TestHourTo
Case 14
Call TestWindowsIni
Case 15
Call TestWinINI1
Case 16
Call TestWinINI2
Case 17
Call TestWinINI3
Case 18
Call TestAllSubDir
Case 19
Call TestGetDriveCurrentDir
Case 20
Call TestGetDefaultCurrentDir
Case 21
Call TestChDir
Case 22
Call TestCountFiles
Case 23
Call TestCountDirectories
Case 24
Call TestKillFiles
Case 25
Call TestGetFullnameInEnv
Case 26
Call TestGetDiskSpace
Case 27
Call TestGetDiskUsed
Case 28
Call TestGetDiskFree
Case 29
Call TestKillDir
Case 30
Call TestRenameFile
Case 31
Call TestFileResetAllAttrib
Case 32
Call TestFileSetAllAttrib
Case 33
Call TestIsFileX
Case 34
Call TestSubDirectory
Case 35
Call TestUniqueFileName
Case 36
Call TestIsX
Case 37
Call TestOneCharFromLeft
Case 38
Call TestOneCharFromRight
Case 39
Call TestBlockCharFromLeft
Case 40
Call TestBlockCharFromRight
Case 41
Call TestCompact
Case 42
Call TestUncompact
Case 43
Call TestInsertChars
Case 44
Call TestRemoveBlockChar
Case 45
Call TestRemoveOneChar
Case 46
Call TestCompressTab
Case 47
Call TestExpandTab
Case 48
Call TestGiveBitPalindrome
Case 49
Call TestIsBitPalindrome
Case 50
Call TestInsertBlocksBy
Case 51
Call TestInsertBlocks
Case 52
Call TestResizeStringAndFill
Case 53
Call TestResizeString
Case 54
Call TestFilterBlocks
Case 55
Call TestFilterChars
Case 56
Call TestCheckChars
Case 57
Call TestChangeChars
Case 58
Call TestChangeCharsUntil
Case 59
Call TestReverse
Case 60
Call TestGetIn
Case 61
Call TestGetBlock
Case 62
Call TestCreateAndFill
Case 63
Call TestStringCRC32
Case 64
Call TestCompress
Case 65
Call TestEncrypt
Case 66
Call TestDecrypt
Case 67
Call TestFileCRC32
Case 68
Call TestLrc
Case 69
Call TestIsPalindrome
Case 70
Call TestCheckNumericity
Case 71
Call TestFill
Case 72
Call TestSetAllBits
Case 73
Call TestSetBit
Case 74
Call TestGetBit
Case 75
Call TestFindBitSet
Case 76
Call TestFindBitReset
Case 77
Call TestToggleBit
Case 78
Call TestToggleAllBits
Case 79
Call TestReverseAllBits
Case 80
Call TestReverseAllBitsByChar
Case 81
Call TestCreateBits
Case 82
Call TestAtoR
Case 83
Call TestRtoA
Case 84
Call TestCustomControls
Case 85
Call TestSwap
Case 86
Call TestMin
Case 87
Call TestMenuChange
Case 88
Call TestFilesSize
Case 89
Call TestClusterSize
Case 90
Call TestAscTime
Case 91
Call TestLanguage
Case 92
Call TestReadLanguage
Case 93
Call TestFileCmp
Case 94
Call TestFileCopy
Case 95
Call TestFileFilter
Case 96
Call TestFileFilterNot
Case 97
Call TestFileEncrypt
Case 98
Call TestFileCompressTab
Case 99
Call TestSplitPath
Case 100
Call TestFullPath
Case 101
Call TestMakePath
Case 102
Call TestMsgBox
Case 103
Call TestInpBox
Case 104
Call TestMixChars
Case 105
Call TestFileVersionInfo
Case 106
Call TestFileVersion
Case 107
Call TestFileLineCount
Case 108
Call TestFileToX
Case 109
Call TestBig
Case 110
Call TestBigNum
Case 111
Call TestSysMenuChange(LNG_FRENCH)
Case 112
Call TestSysMenuChange(LNG_DUTCH)
Case 113
Call TestSysMenuChange(LNG_GERMAN)
Case 114
Call TestSysMenuChange(LNG_ENGLISH)
Case 115
Call TestSysMenuChange(LNG_ITALIAN)
Case 116
Call TestSysMenuChange(LNG_SPANISH)
Case 117
Call TestFileMerge
Case 118
Call TestFileSR
Case 119
Call TestFileS
Case 120
Call TestPatternMatch
Case 121
Call TestPatternExtMatch
Case 122
Call TestMorse
Case 123
Call TestDriveType
Case 124
Call TestBaseConversion
Case 125
Call TestFileStatictics
Case 126
Call TestDAStr(True)
Case 127
Call TestDAL(True)
Case 128
Call TestDAType(True)
Case 129
Call TestDAStr(False)
Case 130
Call TestDAL(False)
Case 131
Call TestDAType(False)
Case 132
Call TestDAStr(1)
Case 133
Call TestDAL(1)
Case 134
Call TestDAType(1)
Case 135
Call TestDAStr(2)
Case 136
Call TestDAL(2)
Case 137
Call TestDAType(2)
Case 138
Call TestDAStr(3)
Case 139
Call TestDAL(3)
Case 140
Call TestDAType(3)
Case 141
Call TestDAStr(4)
Case 142
Call TestDAL(4)
Case 143
Call TestDAType(4)
Case 144
Call TestDAStr(5)
Case 145
Call TestDAL(5)
Case 146
Call TestDAType(5)
Case 147
Call TestDAStr(6)
Case 148
Call TestDAL(6)
Case 149
Call TestDAType(6)
Case 150
Call TestCloseAllEditForm
Case 151
Call TestHideAllEditForm
Case 152
Call TestHideDebugForm
Case 153
Call TestOrToken
Case 154
Call TestAndToken
Case 155
Call TestWalkThruWindow
Case 156
Call TestSerial
Case 157
Call TestTimer
Case 158
Call TestAlign
Case 159
Call TestToken
Case 160
Call TestArrayOnDisk
Case 161
Call TestArrayStringOnDisk
Case 162
Call TestCnvAE
Case 163
Call TestCombination
Case 164
Frame1.Visible = True
Call TestFileSort(SORT_ASCENDING + SORT_CASE_SENSITIVE, False)
Case 165
Frame1.Visible = True
Call TestFileSort(SORT_DESCENDING + SORT_CASE_SENSITIVE, False)
Case 166
Frame1.Visible = True
Call TestFileSort(SORT_ASCENDING + SORT_CASE_INSENSITIVE, False)
Case 167
Frame1.Visible = True
Call TestFileSort(SORT_DESCENDING + SORT_CASE_INSENSITIVE, False)
Case 168
Frame1.Visible = True
Call TestFileSort(SORT_ASCENDING + SORT_CASE_SENSITIVE, True)
Case 169
Frame1.Visible = True
Call TestFileSort(SORT_DESCENDING + SORT_CASE_SENSITIVE, True)
Case 170
Frame1.Visible = True
Call TestFileSort(SORT_ASCENDING + SORT_CASE_INSENSITIVE, True)
Case 171
Frame1.Visible = True
Call TestFileSort(SORT_DESCENDING + SORT_CASE_INSENSITIVE, True)
Case 172
Call TestRegistrationKey
Case 173
Call TestMD5
Case 174
Call TestProperName
Case 175
Call TestMatrixAdd
Case 176
Call TestMatrixSub
Case 177
Call TestMatrixCopy
Case 178
Call TestMatrixMul
Case 179
Call TestMatrixTranspose
Case 180
Call TestMatrixCompare
Case 181
Call Test2D
Case 182
Call Test3D
Case 183
Call TestProperName2
Case 184
Call TestDOSMediaID
Case 185
Call TestFileCompress
Case 186
Call TestStringCompress
Case 187
Frame1.Visible = True
Call TestFillIncrI
Case 188
Call TestMatrixDet
Case 189
Call TestMatrixInv
Case 190
Call TestMatrixMinCo
Case 191
Call TestMatrixSymToeplitz
Case 192
Call TestFloppyInfo
Case 193
Call TestDOSGetVolLabel
Case 194
Call TestAddTwoTimes
Case 195
Call TestMDA(True)
Case 196
Call TestMDA(False)
Case 197
Call TestMDA(1)
Case 198
Call TestMDA(2)
Case 199
Call TestMDA(3)
Case 200
Call TestMDA(4)
Case 201
Call TestMDA(5)
Case 202
Call TestMDA(6)
Case 203
Call TestDate
Case 204
Call TestVersion
Case 205
Call TestGetInR
Case 206
Call TestBigString01
Case 207
Call TestHMAStr(True)
Case 208
Call TestHMAL(True)
Case 209
Call TestHMAType(True)
Case 210
Call TestHMAStr(1)
Case 211
Call TestHMAL(1)
Case 212
Call TestHMAType(1)
Case 213
Call TestHMAStr(2)
Case 214
Call TestHMAL(2)
Case 215
Call TestHMAType(2)
Case 216
Call TestHMAStr(3)
Case 217
Call TestHMAL(3)
Case 218
Call TestHMAType(3)
Case 219
Call TestHMAStr(4)
Case 220
Call TestHMAL(4)
Case 221
Call TestHMAType(4)
Case 222
Call TestHMAStr(5)
Case 223
Call TestHMAL(5)
Case 224
Call TestHMAType(5)
Case 225
Call TestHMAStr(6)
Case 226
Call TestHMAL(6)
Case 227
Call TestHMAType(6)
Case 228
Frame1.Visible = True
Call TestArrayLB
Case 229
Call TestTime
Case 230
Call TestControl3D
Case 231
Call TestFileChangeChars
Case 232
Call TestFilesInfoInDir
Case 233
Call TestRcsCountFileDir
Case 234
Frame1.Visible = True
Call TestFilesInDirOnDisk
Case 235
Frame1.Visible = True
Call TestFilesInDirToArray
Case 236
Call TestRcsFilesSize
Case 237
Call TestMnuLanguage
Case 238
Call TestSpellMoney
Case 239
Call TestFraction
Case 240
Call TestRndX
Case 241
Call TestStringSAR
Case 242
Call TestTruncatePath
Case 243
Call TestSysMenuChange(LNG_CATALAN)
Call TestLanguage
SendKeys "% "
Case 244
Call TestSysMenuChange(LNG_POLISH)
Call TestLanguage
SendKeys "% "
Case 245
Frame1.Visible = True
Call TestCountI
Case 246
Frame1.Visible = True
Call TestSearchI
Case 247
Call TestHexaToX
Case 248
Call TestBinaryToX
End Select
MousePointer = 0
Flag = False
cEnableFI Picture1
End Sub
Private Sub CreateFile()
Dim j As Integer
j = cFileResetAllAttrib("TEST.DAT")
Close #1
Open "TEST.DAT" For Output As #1
Print #1, "This is a file test for t2win-16.dll"
Print #1, "This is a file test for t2win-16.dll"
Print #1, "This is a file test for t2win-16.dll"
Print #1, "This is a file test for t2win-16.dll"
Print #1, "This is a file test for t2win-16.dll"
Print #1, "This is a file test for t2win-16.dll"
Print #1, "This is a file test for t2win-16.dll"
Close #1
j = cFileResetAllAttrib("TEST.DAT")
End Sub
Private Sub DefCnv()
Dim i As Integer
Dim j As Integer
Dim Tmp As String
Close #1
Open "c:\tmp\tmp1.Tmp" For Input Shared As #1
Close #2
Open "c:\tmp\tmp.Tmp" For Output Shared As #2
i = 0
While Not EOF(1)
Line Input #1, Tmp
i = i + 1
Tmp = cCompress(Tmp)
Print #2, Tab(10); cGetIn(Tmp, "@", 1);
Print #2, Tab(60); "@" & i
Wend
Close #1
Close #2
End Sub
Private Sub Form_Load()
Combo2.AddItem "1"
Combo2.AddItem "5"
Combo2.AddItem "10"
Combo2.AddItem "50"
Combo2.AddItem "100"
Combo2.AddItem "500"
Combo2.AddItem "1000"
Combo2.AddItem "5000"
Combo1.AddItem "Array routines : Add"
Combo1.AddItem "Array routines : Deviation"
Combo1.AddItem "Array routines : Fill"
Combo1.AddItem "Array routines : Max"
Combo1.AddItem "Array routines : Mean"
Combo1.AddItem "Array routines : Min"
Combo1.AddItem "Array routines : Set"
Combo1.AddItem "Array routines : Sum"
Combo1.AddItem "Array routines : Sort"
Combo1.AddItem "Array routines : ReverseSort"
Combo1.AddItem "Time routines : AddTime"
Combo1.AddItem "Time routines : TimeBetween"
Combo1.AddItem "Time routines : CheckTime"
Combo1.AddItem "Time routines : HourTo"
Combo1.AddItem "WIN.INI routines : some separators"
Combo1.AddItem "WIN.INI routines : devices"
Combo1.AddItem "WIN.INI routines : printerports"
Combo1.AddItem "WIN.INI routines : winsection (windows section)"
Combo1.AddItem "Files routines : AllSubDirectories"
Combo1.AddItem "Files routines : GetDriveCurrentDir"
Combo1.AddItem "Files routines : GetDefaultCurrentDir"
Combo1.AddItem "Files routines : ChDir"
Combo1.AddItem "Files routines : CountFiles"
Combo1.AddItem "Files routines : CountDirectories"
Combo1.AddItem "Files routines : KillFiles"
Combo1.AddItem "Files routines : GetFullnameInEnv"
Combo1.AddItem "Files routines : GetDiskSpace"
Combo1.AddItem "Files routines : GetDiskUsed"
Combo1.AddItem "Files routines : GetDiskFree"
Combo1.AddItem "Files routines : KillDir"
Combo1.AddItem "Files routines : RenameFile"
Combo1.AddItem "Files routines : FileResetAllAttrib"
Combo1.AddItem "Files routines : FileSetAllAttrib"
Combo1.AddItem "Files routines : IsFileX"
Combo1.AddItem "Files routines : SubDirectory"
Combo1.AddItem "Files routines : UniqueFileName"
Combo1.AddItem "String routines : IsX"
Combo1.AddItem "String routines : OneCharFromLeft"
Combo1.AddItem "String routines : OneCharFromRight"
Combo1.AddItem "String routines : BlockCharFromLeft"
Combo1.AddItem "String routines : BlockCharFromRight"
Combo1.AddItem "String routines : Compact"
Combo1.AddItem "String routines : Uncompact"
Combo1.AddItem "String routines : InsertChars"
Combo1.AddItem "String routines : RemoveBlockChar"
Combo1.AddItem "String routines : RemoveOneChar"
Combo1.AddItem "String routines : CompressTab"
Combo1.AddItem "String routines : ExpandTab"
Combo1.AddItem "String routines : GiveBitPalindrome"
Combo1.AddItem "String routines : IsBitPalindrome"
Combo1.AddItem "String routines : InsertBlocksBy"
Combo1.AddItem "String routines : InsertBlocks"
Combo1.AddItem "String routines : ResizeStringAndFill"
Combo1.AddItem "String routines : ResizeString"
Combo1.AddItem "String routines : FilterBlocks"
Combo1.AddItem "String routines : FilterChars"
Combo1.AddItem "String routines : CheckChars"
Combo1.AddItem "String routines : ChangeChars"
Combo1.AddItem "String routines : ChangeCharsUntil"
Combo1.AddItem "String routines : Reverse"
Combo1.AddItem "String routines : GetIn"
Combo1.AddItem "String routines : GetBlock"
Combo1.AddItem "String routines : CreateAndFill"
Combo1.AddItem "String routines : StringCRC32"
Combo1.AddItem "String routines : Compress"
Combo1.AddItem "String routines : Encrypt"
Combo1.AddItem "String routines : Decrypt"
Combo1.AddItem "Files routines : FileCRC32"
Combo1.AddItem "String routines : Lrc"
Combo1.AddItem "String routines : IsPalindrome"
Combo1.AddItem "String routines : CheckNumericity"
Combo1.AddItem "String routines : Fill"
Combo1.AddItem "String routines : SetAllBits"
Combo1.AddItem "String routines : SetBit"
Combo1.AddItem "String routines : GetBit"
Combo1.AddItem "String routines : FindBitSet"
Combo1.AddItem "String routines : FindBitReset"
Combo1.AddItem "String routines : ToggleBit"
Combo1.AddItem "String routines : ToggleAllBits"
Combo1.AddItem "String routines : ReverseAllBits"
Combo1.AddItem "String routines : ReverseAllBitsByChar"
Combo1.AddItem "String routines : CreateBits"
Combo1.AddItem "String routines : ArabicToRoman"
Combo1.AddItem "String routines : RomanToArabic"
Combo1.AddItem "Custom controls"
Combo1.AddItem "Swap routines"
Combo1.AddItem "Min,Max routines"
Combo1.AddItem "System menu change : French"
Combo1.AddItem "Files routines : FilesSize, FilesSizeOnDisk, FilesSlack"
Combo1.AddItem "Files routines : GetClusterSize"
Combo1.AddItem "Language routines : GetAscTime"
Combo1.AddItem "Language routines : Days and months name"
Combo1.AddItem "Language routines : Read Control Language"
Combo1.AddItem "File routines : Compare"
Combo1.AddItem "File routines : File Copy"
Combo1.AddItem "File routines : File Filter"
Combo1.AddItem "File routines : File Filter Not"
Combo1.AddItem "File routines : File Encrypt/Decrypt"
Combo1.AddItem "File routines : File Compress/Expand Tab"
Combo1.AddItem "File routines : SplitPath"
Combo1.AddItem "File routines : FullPath"
Combo1.AddItem "File routines : MakePath"
Combo1.AddItem "Language routines : Multi-Language & TimeOut Message Box"
Combo1.AddItem "Language routines : Multi-Language Input Box"
Combo1.AddItem "String routines : MixChars"
Combo1.AddItem "Windows Specific Routines : FileVersionInfo"
Combo1.AddItem "Windows Specific Routines : FileVersion"
Combo1.AddItem "File routines : FileLineCount"
Combo1.AddItem "File routines : FileToLower/FileToUpper"
Combo1.AddItem "Misc. routines : Big Double"
Combo1.AddItem "Misc. routines : Big Numbers"
Combo1.AddItem "System menu change (one call) : French"
Combo1.AddItem "System menu change (one call) : Dutch"
Combo1.AddItem "System menu change (one call) : German"
Combo1.AddItem "System menu change (one call) : English"
Combo1.AddItem "System menu change (one call) : Italian"
Combo1.AddItem "System menu change (one call) : Spanish"
Combo1.AddItem "File routines : FileMerge"
Combo1.AddItem "File routines : FileSearchAndReplace"
Combo1.AddItem "File routines : FileSearch, FileSearchCount"
Combo1.AddItem "String routines : PatternMatch"
Combo1.AddItem "String routines : PatternExtMatch"
Combo1.AddItem "Misc. routines : Morse"
Combo1.AddItem "DOS routines : GetDriveType"
Combo1.AddItem "Misc. routines : Base conversion"
Combo1.AddItem "File routines : FileStatistics"
Combo1.AddItem "Disk Array routines : (create) String"
Combo1.AddItem "Disk Array routines : (create) Long"
Combo1.AddItem "Disk Array routines : (create) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Disk Array routines : (use) String"
Combo1.AddItem "Disk Array routines : (use) Long"
Combo1.AddItem "Disk Array routines : (use) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Disk Array routines : (clear) String"
Combo1.AddItem "Disk Array routines : (clear) Long"
Combo1.AddItem "Disk Array routines : (clear) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Disk Array routines : (clear sheet 2) String"
Combo1.AddItem "Disk Array routines : (clear sheet 2) Long"
Combo1.AddItem "Disk Array routines : (clear sheet 2) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Disk Array routines : (clear last row in sheet 1) String"
Combo1.AddItem "Disk Array routines : (clear last row in sheet 1) Long"
Combo1.AddItem "Disk Array routines : (clear last row in sheet 1) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Disk Array routines : (clear last col in sheet 1) String"
Combo1.AddItem "Disk Array routines : (clear last col in sheet 1) Long"
Combo1.AddItem "Disk Array routines : (clear last col in sheet 1) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Disk Array routines : (clear last row in all sheets) String"
Combo1.AddItem "Disk Array routines : (clear last row in all sheets) Long"
Combo1.AddItem "Disk Array routines : (clear last row in all sheets) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Disk Array routines : (clear last col in all sheets) String"
Combo1.AddItem "Disk Array routines : (clear last col in all sheets) Long"
Combo1.AddItem "Disk Array routines : (clear last col in all sheets) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "VB Management routines : CloseAllEditForm"
Combo1.AddItem "VB Management routines : HideAllEditForm, UnHideAllEditForm"
Combo1.AddItem "VB Management routines : HideDebugForm, UnHideDebugForm"
Combo1.AddItem "String routines : OrToken, OrTokenIn"
Combo1.AddItem "String routines : AndToken, AndTokenIn"
Combo1.AddItem "Windows Specific Routines : WalkThruWindow"
Combo1.AddItem "Serialization : IsSerial, SerialGet, SerialPut, SerialInc"
Combo1.AddItem "Timer functions : Extended Timer"
Combo1.AddItem "String routines : Align"
Combo1.AddItem "String routines : Token"
Combo1.AddItem "Array routines : ArrayOnDisk"
Combo1.AddItem "Array routines : ArrayStringOnDisk"
Combo1.AddItem "String routines : cCnvASCIItoEBCDIC, cCnvEBCDICtoASCII"
Combo1.AddItem "Misc. routines : Combination C(n,m)"
Combo1.AddItem "File routines : FileSort (ASC and CS) (record ended with cr/lf)"
Combo1.AddItem "File routines : FileSort (DSC and CS) (record ended with cr/lf)"
Combo1.AddItem "File routines : FileSort (ASC and NS) (record ended with cr/lf)"
Combo1.AddItem "File routines : FileSort (DSC and NS) (record ended with cr/lf)"
Combo1.AddItem "File routines : FileSort (ASC and CS) (record size 3)"
Combo1.AddItem "File routines : FileSort (DSC and CS) (record size 3)"
Combo1.AddItem "File routines : FileSort (ASC and NS) (record size 3)"
Combo1.AddItem "File routines : FileSort (DSC and NS) (record size 3)"
Combo1.AddItem "Misc. routines : RegistrationKey"
Combo1.AddItem "Misc. routines : HashMD5"
Combo1.AddItem "String routines : ProperName"
Combo1.AddItem "Matrix routines : MatrixAdd"
Combo1.AddItem "Matrix routines : MatrixSub"
Combo1.AddItem "Matrix routines : MatrixCopy"
Combo1.AddItem "Matrix routines : MatrixMul"
Combo1.AddItem "Matrix routines : MatrixTranspose"
Combo1.AddItem "Matrix routines : MatrixCompare"
Combo1.AddItem "2-D geometry"
Combo1.AddItem "3-D geometry"
Combo1.AddItem "String routines : ProperName2"
Combo1.AddItem "DOS routines : DOSMediaID"
Combo1.AddItem "File routines : File Compress/Expand"
Combo1.AddItem "String routines : String Compress/Expand"
Combo1.AddItem "Array routines : FillIncrI"
Combo1.AddItem "Matrix routines : MatrixDet"
Combo1.AddItem "Matrix routines : MatrixInv"
Combo1.AddItem "Matrix routines : MatrixMinor,MatrixCoFactor"
Combo1.AddItem "Matrix routines : MatrixSymToeplitz"
Combo1.AddItem "DOS routines : FloppyInfo"
Combo1.AddItem "DOS routines : DOSGetVolumeLabel"
Combo1.AddItem "Time routines : AddTwoTimes"
Combo1.AddItem "Multiple Disk Array routines : (create)"
Combo1.AddItem "Multiple Disk Array routines : (use)"
Combo1.AddItem "Multiple Disk Array routines : (clear)"
Combo1.AddItem "Multiple Disk Array routines : (clear sheet 2)"
Combo1.AddItem "Multiple Disk Array routines : (clear last row in sheet 1)"
Combo1.AddItem "Multiple Disk Array routines : (clear last col in sheet 1)"
Combo1.AddItem "Multiple Disk Array routines : (clear last row in all sheets)"
Combo1.AddItem "Multiple Disk Array routines : (clear last col in all sheets)"
Combo1.AddItem "Date routines : DayOfWeek, DayOfYear, WeekOfYear, ..."
Combo1.AddItem "Misc. routines : GetVersion"
Combo1.AddItem "String routines : GetInR, GetInPart, GetInPartR"
Combo1.AddItem "Huge String"
Combo1.AddItem "Huge Memory Array : (create) String"
Combo1.AddItem "Huge Memory Array : (create) Long"
Combo1.AddItem "Huge Memory Array : (create) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Huge Memory Array : (clear) String"
Combo1.AddItem "Huge Memory Array : (clear) Long"
Combo1.AddItem "Huge Memory Array : (clear) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Huge Memory Array : (clear sheet 2) String"
Combo1.AddItem "Huge Memory Array : (clear sheet 2) Long"
Combo1.AddItem "Huge Memory Array : (clear sheet 2) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Huge Memory Array : (clear last row in sheet 1) String"
Combo1.AddItem "Huge Memory Array : (clear last row in sheet 1) Long"
Combo1.AddItem "Huge Memory Array : (clear last row in sheet 1) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Huge Memory Array : (clear last col in sheet 1) String"
Combo1.AddItem "Huge Memory Array : (clear last col in sheet 1) Long"
Combo1.AddItem "Huge Memory Array : (clear last col in sheet 1) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Huge Memory Array : (clear last row in all sheets) String"
Combo1.AddItem "Huge Memory Array : (clear last row in all sheets) Long"
Combo1.AddItem "Huge Memory Array : (clear last row in all sheets) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Huge Memory Array : (clear last col in all sheets) String"
Combo1.AddItem "Huge Memory Array : (clear last col in all sheets) Long"
Combo1.AddItem "Huge Memory Array : (clear last col in all sheets) Type'd (b.e. : tagTASKENTRY)"
Combo1.AddItem "Array routines : ArrayToListBox"
Combo1.AddItem "Time routines : TimeToScalar, ScalarToTime"
Combo1.AddItem "3D routines : Ctl3D, 3D, GetCtlRect, GetCtlRectTwips"
Combo1.AddItem "File routines : FileChangeChars"
Combo1.AddItem "File routines : FilesInfoInDir"
Combo1.AddItem "File routines : RcsCountFileDir"
Combo1.AddItem "File routines : FilesInDirOnDisk"
Combo1.AddItem "File routines : FilesInDirToArray"
Combo1.AddItem "Files routines : rcsFilesSize, rcsFilesSizeOnDisk, rcsFilesSlack"
Combo1.AddItem "Language routines : Read Menu Language"
Combo1.AddItem "String routines : SpellMoney"
Combo1.AddItem "Misc. routines : Fraction"
Combo1.AddItem "Misc. routines : Rndx"
Combo1.AddItem "String routines : StringSAR"
Combo1.AddItem "File routines : TruncatePath"
Combo1.AddItem "System menu change (one call) : Catalan"
Combo1.AddItem "System menu change (one call) : Polish"
Combo1.AddItem "Array routines : Count"
Combo1.AddItem "Array routines : Search"
Combo1.AddItem "String routines : H2I, H2L"
Combo1.AddItem "String routines : B2I, B2L"
Combo1.ListIndex = Combo1.ListCount - 1
Combo2.ListIndex = 2
Item = Val(Combo2.Text)
ItemFile = Val(Combo2.Text)
ItemMean = Val(Combo2.Text)
Text1.Text = "A/BC/DEF/GHIJ"
End Sub
Private Sub Form_Paint()
'Dim i As Integer
'Dim N As Integer
'N = frmT2W.Controls.Count - 1
'For i = 0 To N
' If ((frmT2W.Controls(i).Visible = True) And (frmT2W.Controls(i).Enabled = True)) Then
' Call c3D(frmT2W.Controls(i), 0, 0)
' End If
'Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call cShowWindow(frmT2W.hWnd, 1, 125)
End Sub
Private Sub Label2_DblClick()
Dim i As Integer
Dim N As Integer
N = Combo1.ListCount - 1
For i = 0 To N
Combo1.ListIndex = i
DoEvents
Call Command1_Click
DoEvents
Next i
End Sub
Private Sub Test2D()
Dim Tmp1 As String
Dim i As Integer
Dim j As Integer
Dim k As Double
Dim u As tagVECTOR2
Dim v As tagVECTOR2
Dim w As tagVECTOR2
u.x = 1
u.y = 1
v.x = 3
v.y = 3
Tmp1 = Tmp1 & "First vector (u) is (" & u.x & "," & u.y & ")" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Second vector (v) is (" & v.x & "," & v.y & ")" & Chr$(13) & Chr$(13)
Call cV2Add(u, v, w)
Tmp1 = Tmp1 & "Sum of (u)+(v) = (w) is (" & w.x & "," & w.y & ")" & Chr$(13) & Chr$(13)
Call cV2Sub(u, v, w)
Tmp1 = Tmp1 & "Sub of (u)-(v) = (w) is (" & w.x & "," & w.y & ")" & Chr$(13) & Chr$(13)
Call cV2Mul(u, v, w)
Tmp1 = Tmp1 & "Mul of (u).(v) = (w) is (" & w.x & "," & w.y & ")" & Chr$(13) & Chr$(13)
k = cV2Dot(u, v)
Tmp1 = Tmp1 & "Dot of (u),(v) is " & k & Chr$(13) & Chr$(13)
k = cV2Length(v)
Tmp1 = Tmp1 & "Length (v) is " & k & Chr$(13) & Chr$(13)
k = cV2SegmentLength(u, v)
Tmp1 = Tmp1 & "Segmented Length from (u) to (v) is " & k & Chr$(13) & Chr$(13)
Call cV2Normalized(u)
Tmp1 = Tmp1 & "Normalization of (u) is (" & u.x & "," & u.y & ")" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Call cV2Add(u, v, w)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub Test3D()
Dim Tmp1 As String
Dim i As Integer
Dim j As Integer
Dim k As Double
Dim u As tagVECTOR3
Dim v As tagVECTOR3
Dim w As tagVECTOR3
u.x = 1
u.y = 1
u.z = 1
v.x = 3
v.y = 3
v.z = 3
Tmp1 = Tmp1 & "First vector (u) is (" & u.x & "," & u.y & "," & u.z & ")" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Second vector (v) is (" & v.x & "," & v.y & "," & v.z & ")" & Chr$(13) & Chr$(13)
Call cV3Add(u, v, w)
Tmp1 = Tmp1 & "Sum of (u)+(v) = (w) is (" & w.x & "," & w.y & "," & w.z & ")" & Chr$(13) & Chr$(13)
Call cV3Sub(u, v, w)
Tmp1 = Tmp1 & "Sub of (u)-(v) = (w) is (" & w.x & "," & w.y & "," & w.z & ")" & Chr$(13) & Chr$(13)
Call cV3Mul(u, v, w)
Tmp1 = Tmp1 & "Mul of (u).(v) = (w) is (" & w.x & "," & w.y & ")" & Chr$(13) & Chr$(13)
k = cV3Dot(u, v)
Tmp1 = Tmp1 & "Dot of (u),(v) is " & k & Chr$(13) & Chr$(13)
k = cV3Length(v)
Tmp1 = Tmp1 & "Length (v) is " & k & Chr$(13) & Chr$(13)
k = cV3SegmentLength(u, v)
Tmp1 = Tmp1 & "Segmented Length from (u) to (v) is " & k & Chr$(13) & Chr$(13)
Call cV3Normalized(u)
Tmp1 = Tmp1 & "Normalization of (u) is (" & u.x & "," & u.y & "," & u.z & ")" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Call cV3Add(u, v, w)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestAddI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Double
ReDim array(ItemMean) As Integer
Randomize Timer
For i = LBound(array) To UBound(array)
array(i) = 0
List1.AddItem "" & array(i)
Next i
j = cAddI(array(), 10)
For i = LBound(array) To UBound(array)
List2.AddItem "" & array(i)
Next i
Tmp1 = Tmp1 & "Add 10 to element 1 of an integer array is : " & array(1) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Add 10 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cAddI(array(), 1)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestAddTime()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "The time 10:00 + 02:01 is " & cIntoHour(cAddTime(600 + 121)) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The time 23:58 + 01:02 is " & cIntoHour(cAddTime(1438 + 62)) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cAddTime(1439 + 2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestAddTwoTimes()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "The time '10:00:58' + '02:01:02' is '" & cAddTwoTimes("10:00:58", "02:01:02") & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The time '23:58:58' + '01:02:01' is '" & cAddTwoTimes("23:58:58", "01:02:01") & "'" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cAddTwoTimes("23:58:58", "01:02:01")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestAlign()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "T2WIN-16"
Title = "Left Align of [" & Tmp & "] is " & Chr$(13) & "'"
Tmp1 = Title & cAlign(Tmp, -1, 30) & "'" & Chr$(13) & Chr$(13)
Title = "Center Align of [" & Tmp & "] is " & Chr$(13) & "'"
Tmp1 = Tmp1 & Title & cAlign(Tmp, 0, 30) & "'" & Chr$(13) & Chr$(13)
Title = "Right Align of [" & Tmp & "] is " & Chr$(13) & "'"
Tmp1 = Tmp1 & Title & cAlign(Tmp, 1, 30) & "'" & Chr$(13) & Chr$(13)
j = cTimerOpen()
i = cTimerStart(j)
For i = 1 To Item
Tmp2 = cAlign(Tmp, 0, 30)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cTimerRead(j) & " ms"
i = cTimerClose(j)
Label3.Caption = Tmp1
End Sub
Private Sub TestAllSubDir()
Dim N As Integer
Dim Tmp As String
N = -1
Tmp = cAllSubDirectories("C:", N)
Label3.Caption = "Directories founden on drive C are " & N & Chr$(13) & Tmp
End Sub
Private Sub TestAndToken()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "FOX|OVER|THE"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndToken(Tmp2, Tmp), "ok", "ko") & Chr$(13) & Chr$(13)
Tmp = "quick|jumps|the"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndToken(Tmp2, Tmp), "ok", "ko") & Chr$(13) & Chr$(13)
Tmp = "FOX\OVER\THE"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndTokenIn(Tmp2, Tmp, "\"), "ok", "ko") & Chr$(13) & Chr$(13)
Tmp = "quick\jumps\the"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndTokenIn(Tmp2, Tmp, "\"), "ok", "ko") & Chr$(13) & Chr$(13)
Tmp = "FOX/OVER/THE"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndTokenIn(Tmp2, Tmp, "\"), "ok", "ko") & Chr$(13) & Chr$(13)
Tmp = "quick\JUMPS\the"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndTokenIn(Tmp2, Tmp, "\"), "ok", "ko") & Chr$(13) & Chr$(13)
Tmp = LCase$("quick\jumps\THE")
Tmp2 = LCase$("THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG")
Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndTokenIn(Tmp2, Tmp, "\"), "ok", "ko") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cAndToken(Tmp2, Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestArrayLB()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Long
Dim j As Long
Dim n1 As Long
Dim n2 As Long
Dim m1 As Integer
Dim m2 As Integer
m1 = -99
m2 = 99
ReDim AD(m1 To m2) As String
Randomize Timer
' initialization because we use ReDim without Global definition
For i = m1 To m2
If ((Abs(i) Mod 2) = 0) Then
AD(i) = i & " " & Chr$(64 + Int(26 * Rnd)) + Chr$(64 + Int(26 * Rnd)) + Chr$(64 + Int(26 * Rnd))
Else
AD(i) = i & " " & Chr$(64 + Int(26 * Rnd)) + Chr$(64 + Int(26 * Rnd)) + Chr$(64 + Int(26 * Rnd)) + Chr$(64 + Int(26 * Rnd))
End If
Next i
Tmp1 = "Memory array (" & m1 & " To " & m2 & ") has been created and initialized." & Chr$(13)
j = cArrayToListBox(List1.hWnd, AD())
j = cArrayToListBox(List2.hWnd, AD())
List1.Clear
cStartBasisTimer
For i = 1 To Item
j = cArrayToListBox(List1.hWnd, AD())
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestArrayOnDisk()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Long
Dim j As Long
Dim n1 As Long
Dim n2 As Long
Dim m1 As Integer
Dim m2 As Integer
m1 = -9999
m2 = 9999
ReDim AD(m1 To m2, 0 To 1) As Long
Randomize Timer
n1 = Int(1234567890 * Rnd)
n2 = -Int(987654321 * Rnd)
' initialization because we use ReDim without Global definition
For i = m1 To m2
AD(i, 0) = n1
AD(i, 1) = n2
Next i
Tmp = "test.dat"
Tmp1 = "Memory array (" & m1 & " To " & m2 & ", 0 To 1) has been created and initialized." & Chr$(13)
Tmp1 = Tmp1 + "File '" & Tmp & "' will be used." & Chr$(13)
Tmp1 = Tmp1 + "Each (i,0) is init with '" & n1 & "'." & Chr$(13)
Tmp1 = Tmp1 + "Each (i,1) is init with '" & n2 & "'." & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m1 & ", 0) is " & AD(m1, 0) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m2 & ", 0) is " & AD(m2, 0) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m1 & ", 1) is " & AD(m1, 1) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m2 & ", 1) is " & AD(m2, 1) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 + "Put array on disk is '" & cArrayOnDisk(Tmp, AD(), PUT_ARRAY_ON_DISK) & "' bytes." & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 + "Memory array (" & m1 & " To " & m2 & ", 0 To 1) has been zero'ed." & Chr$(13) & Chr$(13)
For i = m1 To m2
AD(i, 0) = 0
AD(i, 1) = 0
Next i
Tmp1 = Tmp1 + "AD(" & m1 & ", 0) is " & AD(m1, 0) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m2 & ", 0) is " & AD(m2, 0) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m1 & ", 1) is " & AD(m1, 1) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m2 & ", 1) is " & AD(m2, 1) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 + "Get array on disk is '" & cArrayOnDisk(Tmp, AD(), GET_ARRAY_ON_DISK) & "' bytes." & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m1 & ", 0) is " & AD(m1, 0) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m2 & ", 0) is " & AD(m2, 0) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m1 & ", 1) is " & AD(m1, 1) & Chr$(13)
Tmp1 = Tmp1 + "AD(" & m2 & ", 1) is " & AD(m2, 1) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cArrayOnDisk(Tmp, AD(), GET_ARRAY_ON_DISK)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestArrayStringOnDisk()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Long
Dim j As Long
Dim n1 As Long
Dim n2 As Long
Dim r As Long
Dim m1 As Integer
Dim m2 As Integer
m1 = -999
m2 = 4000
ReDim AD(m1 To m2) As String
' initialization because we use ReDim without Global definition
'For i = m1 To m2
' AD(i) = Space$(256)
'Next i
Randomize Timer
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\autoexec.tab"
Tmp1 = "Reading file '" & Tmp & "' into AD(" & m1 & " To " & m2 & ") is '" & cArrayStringOnDisk(Tmp, AD(), GET_ARRAY_ON_DISK, r) & "'" & Chr$(13)
Tmp1 = Tmp1 & " The 7 (on " & r & ") first lines in array are : " & Chr$(13) & Chr$(13)
For i = 0 To 6
Tmp1 = Tmp1 & AD(m1 + i) & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13) & "Writing file '" & Tmp2 & "' from AD(" & m1 & " To " & m2 & ") is '" & cArrayStringOnDisk(Tmp2, AD(), PUT_ARRAY_ON_DISK, r) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Reading file '" & Tmp2 & "' into AD(" & m1 & " To " & m2 & ") is '" & cArrayStringOnDisk(Tmp2, AD(), GET_ARRAY_ON_DISK, r) & "'" & Chr$(13)
Tmp1 = Tmp1 & " The 7 (on " & r & ") first lines in array are : " & Chr$(13) & Chr$(13)
For i = 0 To 6
Tmp1 = Tmp1 & AD(m1 + i) & Chr$(13)
Next i
cStartBasisTimer
For i = 1 To Item
j = cArrayStringOnDisk(Tmp, AD(), GET_ARRAY_ON_DISK, r)
Next i
Tmp1 = Tmp1 & Chr$(13) & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestAscTime()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim ErrCode As Integer
Tmp1 = ""
For i = LNG_FRENCH To LNG_POLISH
Tmp1 = Tmp1 + cGetAscTime(i) & Chr$(13)
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp = cGetAscTime(LNG_FRENCH)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestAtoR()
Dim Tmp As Integer
Dim Tmp1 As String
Tmp = Year(Int(Now))
Tmp1 = Tmp & " in Roman is " & UCase$(cArabicToRoman(Tmp)) & Chr$(13)
Tmp = Year(Int(Now)) - 1
Tmp1 = Tmp1 & Tmp & " in Roman is " & UCase$(cArabicToRoman(Tmp)) & Chr$(13)
Tmp = Year(Int(Now)) + 1
Tmp1 = Tmp1 & Tmp & " in Roman is " & UCase$(cArabicToRoman(Tmp)) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestBaseConversion()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim ErrCode As Integer
Tmp1 = ""
For i = 2 To 20
Tmp1 = Tmp1 + "Convert '1234567' base 10 to base " & i & " is " & cBaseConversion("1234567", 10, i) & Chr$(13)
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp = cBaseConversion("123456789", 10, 10)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestBetween()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "601 is not between 720 and 840 => " & cBetween(601, 720, 840) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "601 is between 540 and 602 => " & cBetween(601, 540, 602) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "61 is between 61 and 62 => " & cBetween(61, 61, 62) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cBetween(720, 0, 1439)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestBig()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Integer
Dim m1 As Double
Dim m2 As Double
m1 = 123456789012345#
m2 = 987654321098765#
Tmp1 = Tmp1 & "Double : Add '" & m1 & "' and '" & m2 & "' is '" & (m1 + m2) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Big Double : Add '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigAdd(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Big Num : Add '" & m1 & "' and '" & m2 & "' is '" & cBigNum(LTrim$(Str$(m1)), BIG_ADD, LTrim$(Str$(m2))) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Double : Sub '" & m1 & "' and '" & m2 & "' is '" & (m1 - m2) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Big Double : Sub '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigSub(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Big Num : Sub '" & m1 & "' and '" & m2 & "' is '" & cBigNum(LTrim$(Str$(m1)), BIG_SUB, LTrim$(Str$(m2))) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Double : Mul '" & m1 & "' and '" & m2 & "' is '" & (m1 * m2) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Big Double : Mul '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigMul(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Big Num : Mul '" & m1 & "' and '" & m2 & "' is '" & cBigNum(LTrim$(Str$(m1)), BIG_MUL, LTrim$(Str$(m2))) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Double : Div '" & m1 & "' and '" & m2 & "' is '" & (m1 / m2) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Big Double : Div '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigDiv(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Tmp3 = cBigAdd(cMKN(Str$(m1)), cMKN(Str$(m2)))
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestBigNum()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim Tmp4 As String
Dim i As Integer
Dim j As Integer
Dim m As Double
Tmp3 = "00001234567890123456789012345678901"
Tmp4 = "00009876543210987654321098765432100"
Tmp1 = Tmp1 & "X = " & Tmp3 & Chr$(13)
Tmp1 = Tmp1 & "Y = " & Tmp4 & Chr$(13) & Chr$(13)
Tmp = Tmp3
Tmp2 = Tmp4
Tmp1 = Tmp1 & "'(X) + (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & Chr$(13)
Tmp = Tmp3
Tmp2 = "-" & Tmp4
Tmp1 = Tmp1 & "'(X) + (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & Chr$(13)
Tmp = "-" & Tmp3
Tmp2 = Tmp4
Tmp1 = Tmp1 & "'(-X) + (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & Chr$(13)
Tmp = "-" & Tmp3
Tmp2 = "-" & Tmp4
Tmp1 = Tmp1 & "'(-X) + (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & Chr$(13) & Chr$(13)
Tmp = Tmp3
Tmp2 = Tmp4
Tmp1 = Tmp1 & "'(X) - (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & Chr$(13)
Tmp = Tmp3
Tmp2 = "-" & Tmp4
Tmp1 = Tmp1 & "'(X) - (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & Chr$(13)
Tmp = "-" & Tmp3
Tmp2 = Tmp4
Tmp1 = Tmp1 & "'(-X) - (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & Chr$(13)
Tmp = "-" & Tmp3
Tmp2 = "-" & Tmp4
Tmp1 = Tmp1 & "'(-X) - (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & Chr$(13) & Chr$(13)
Tmp = Tmp3
Tmp2 = Tmp4
Tmp1 = Tmp1 & "'(X) * (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & Chr$(13)
Tmp = Tmp3
Tmp2 = "-" & Tmp4
Tmp1 = Tmp1 & "'(X) * (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & Chr$(13)
Tmp = "-" & Tmp3
Tmp2 = Tmp4
Tmp1 = Tmp1 & "'(-X) * (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & Chr$(13)
Tmp = "-" & Tmp3
Tmp2 = "-" & Tmp4
Tmp1 = Tmp1 & "'(-X) * (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Tmp3 = cBigNum(Tmp, BIG_ADD, Tmp2)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " ADD = " & (cReadBasisTimer() / 1000) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Tmp3 = cBigNum(Tmp, BIG_SUB, Tmp2)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " SUB = " & (cReadBasisTimer() / 1000) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Tmp3 = cBigNum(Tmp, BIG_MUL, Tmp2)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " MUL = " & (cReadBasisTimer() / 1000)
Label3.Caption = Tmp1
End Sub
Private Sub TestBigString01()
Dim Tmp1 As String
Dim m1 As Integer
Dim p1 As Integer
Tmp1 = "Create a big string of 512 Kb is "
m1 = cHugeStrCreate(512 * 1024&)
Tmp1 = Tmp1 & IIf(m1 <> 0, "OK", "ko") & " (" & m1 & ")" & Chr$(13)
Tmp1 = Tmp1 & "Size (" & m1 & ") is " & cHugeStrSize(m1) & Chr$(13)
Tmp1 = Tmp1 & "Memory Address (" & m1 & ") is " & cHugeStrAddress(m1) & Chr$(13)
Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & Chr$(13)
Tmp1 = Tmp1 & "Add '1234567890' (" & m1 & ") is " & IIf(cHugeStrAdd(m1, "1234567890"), "OK", "ko") & Chr$(13)
Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & Chr$(13)
Tmp1 = Tmp1 & "Pointer (" & m1 & ") is " & cHugeStrGetWP(m1) & Chr$(13)
Tmp1 = Tmp1 & "Add 'This is a test' (" & m1 & ") is " & IIf(cHugeStrAdd(m1, "This is a test"), "OK", "ko") & Chr$(13)
Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & Chr$(13)
Tmp1 = Tmp1 & "Pointer (" & m1 & ") is " & cHugeStrGetWP(m1) & Chr$(13)
Tmp1 = Tmp1 & "Blocks (" & m1 & ") is " & cHugeStrBlocks(m1) & Chr$(13)
Tmp1 = Tmp1 & "Read (" & m1 & ") is '" & cHugeStrRead(m1, 1) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Set pointer (" & m1 & ") to 7 is " & cHugeStrSetWP(m1, 7) & Chr$(13)
Tmp1 = Tmp1 & "Add 'THIS IS A TEST' (" & m1 & ") is " & IIf(cHugeStrAdd(m1, "THIS IS A TEST"), "OK", "ko") & Chr$(13)
Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & Chr$(13)
Tmp1 = Tmp1 & "Read (" & m1 & ") is '" & cHugeStrRead(m1, 1) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Append 'append one' (" & m1 & ") is " & IIf(cHugeStrAppend(m1, "append one"), "OK", "ko") & Chr$(13)
Tmp1 = Tmp1 & "Append 'append two' (" & m1 & ") is " & IIf(cHugeStrAppend(m1, "append two"), "OK", "ko") & Chr$(13)
Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & Chr$(13)
Tmp1 = Tmp1 & "Read (" & m1 & ") is '" & cHugeStrRead(m1, 1) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Set pointer (" & m1 & ") to " & cHugeStrLength(m1) & " is " & cHugeStrSetWP(m1, cHugeStrLength(m1)) & Chr$(13)
Tmp1 = Tmp1 & "Add 'AZERTYUIOP' (" & m1 & ") is " & IIf(cHugeStrAdd(m1, "AZERTYUIOP"), "OK", "ko") & Chr$(13)
Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & Chr$(13)
Tmp1 = Tmp1 & "Mid (" & m1 & ") is '" & cHugeStrMid(m1, 3, 10) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Read (" & m1 & ") is '" & cHugeStrRead(m1, 1) & "'" & Chr$(13)
Tmp1 = Tmp1 & "Clear (" & m1 & ") is " & IIf(cHugeStrClear(m1), "OK", "ko") & Chr$(13)
Tmp1 = Tmp1 & "Free a big string of 512 Kb is "
p1 = cHugeStrFree(m1)
Tmp1 = Tmp1 & IIf(p1 <> 0, "OK", "ko") & " (" & p1 & ")" & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestBlockCharFromLeft()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "The 3,7,1 blocks from left of [" & Tmp & "] are " & Chr$(13) & Chr$(13)
Tmp = Text1.Text
Tmp1 = Title & "3:" & cBlockCharFromLeft(Tmp, 3) & " | 7:" & cBlockCharFromLeft(Tmp, 7) & " | 1:" & cBlockCharFromLeft(Tmp, 1) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cBlockCharFromLeft(Tmp, 2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestBlockCharFromRight()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "The 3,7,1 blocks from right of [" & Tmp & "] are " & Chr$(13) & Chr$(13)
Tmp = Text1.Text
Tmp1 = Title & "3:" & cBlockCharFromRight(Tmp, 3) & " | 7:" & cBlockCharFromRight(Tmp, 7) & " | 1:" & cBlockCharFromRight(Tmp, 1) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cBlockCharFromRight(Tmp, 2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestChangeChars()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Title = "Change 'AZM' into 'qyc' of [" & Tmp & "] is "
Call cChangeChars(Tmp, "AZM", "qyc")
Tmp1 = Title & Tmp & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cChangeChars(Tmp, "AZM", "qyc")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestChangeCharsUntil()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Title = "Change 'AZM' into 'qyc' of [" & Tmp & "] until 'N' is "
Call cChangeCharsUntil(Tmp, "AZM", "qyc", "N")
Tmp1 = Title & Tmp & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cChangeCharsUntil(Tmp, "AZM", "qyc", "N")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestChDir()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim ErrCode As Integer
Tmp1 = ""
For i = 1 To 26
k = cChDir(Chr$(64 + i) & ":\")
If (k = True) Then
Tmp1 = Tmp1 & "ChDir to \ on '" & Chr$(64 + i) & ":' is " & IIf(k = True, "succesfull", "not successfull") & Chr$(13)
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
k = cChDir("C:\")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestChDrive()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim ErrCode As Integer
Tmp1 = ""
For i = 1 To 26
k = cChDrive(Chr$(64 + i))
If (k = True) Then
Tmp1 = Tmp1 & "ChDrive on '" & Chr$(64 + i) & ":' is " & IIf(k = True, "succesfull", "not successfull") & Chr$(13)
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
k = cChDrive("C")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCheckChars()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Title = "Check 'A','Z' in [" & Tmp & "] is "
Tmp1 = Title & IIf(cCheckChars(Tmp, "AZ"), "all present", "not all present") & Chr$(13) & Chr$(13)
Title = Tmp1 & "Check 'a','Z' in [" & Tmp & "] is "
Tmp1 = Title & IIf(cCheckChars(Tmp, "aZ"), "all present", "not all present") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cCheckChars(Tmp, "AZ")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCheckNumericity()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "[" & Tmp & "] is "
Tmp1 = Title & IIf(cCheckNumericity(Tmp), "Numeric", " not Numeric") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cCheckNumericity(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCheckTime()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "10:01 is not between 12:00 and 14:00 => " & cCheckTime(601, 720, 840) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "10:01 is between 09:00 and 10:02 => " & cCheckTime(601, 540, 602) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "01:01 is between 23:58 and 02:45 => " & cCheckTime(61, 1438, 165) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cCheckTime(720, 0, 1439)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCloseAllEditForm()
If (cCloseAllEditForm() = True) Then
Label3.Caption = "CloseAllEditForm SUCCESS"
Else
Label3.Caption = "CloseAllEditForm FAIL"
End If
End Sub
Private Sub TestClusterSize()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim ErrCode As Integer
Tmp1 = ""
For i = 1 To 26
k = cGetDiskClusterSize(Chr$(64 + i))
If (k <> True) Then
Tmp1 = Tmp1 & "DiskClusterSize for '" & Chr$(64 + i) & ":' is " & k & Chr$(13)
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
k = cGetDiskClusterSize("C")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCnvAE()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "ASCII -> EBCDIC of '" & Tmp & "' is "
Call cCnvASCIItoEBCDIC(Tmp)
Tmp1 = Title & Tmp & Chr$(13) & Chr$(13)
Title = "EBCDIC -> ASCII of '" & Tmp & "' is "
Call cCnvEBCDICtoASCII(Tmp)
Tmp1 = Tmp1 & Title & Tmp & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cCnvASCIItoEBCDIC(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCombination()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Integer
Dim m1 As Double
Dim m2 As Double
For i = 0 To 10
Tmp1 = Tmp1 & "Combination C(42, " & i & ") is '" & cCombination(42, i) & "'" & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
For i = 42 To 32 Step -1
Tmp1 = Tmp1 & "Combination C(42, " & i & ") is '" & cCombination(42, i) & "'" & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
m1 = cCombination(42, 6)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCompact()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "30313233343536373839"
Title = "Compact '" & Tmp & "' is "
Tmp1 = Title & cCompact(Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cCompact(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCompress()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "A " & Chr$(9) & "BC "
Tmp = Tmp1
Title = "Filter chr(0),chr(9),chr(32) in [" & Tmp & "] is "
Tmp1 = Title & cCompress(Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cCompress(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCompressTab()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "A BC DEF GHIJ "
Title = "Compress tab (3 chars) into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Title & cCompressTab(Tmp, 3) & Chr$(13) & Chr$(13)
Tmp = "A BC DEF GHIJ "
Title = "Compress tab (2 chars) into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & Title & cCompressTab(Tmp, 2) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cCompressTab(Tmp, 3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestControl3D()
Dim i As Integer
Dim j As Integer
Dim r As tagRECT
Dim Tmp1 As String
Call cGetCtlRect(Label3, r)
Tmp1 = "Coordinates (in pixels) of this label are :" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Left : " & r.Left & Chr$(13)
Tmp1 = Tmp1 & "Top : " & r.Top & Chr$(13)
Tmp1 = Tmp1 & "Right : " & r.Right & Chr$(13)
Tmp1 = Tmp1 & "Bottom : " & r.Bottom & Chr$(13) & Chr$(13)
Call cGetCtlRectTwips(Label3, r)
Tmp1 = Tmp1 & "Coordinates (in twips) of this label are :" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Left : " & r.Left & Chr$(13)
Tmp1 = Tmp1 & "Top : " & r.Top & Chr$(13)
Tmp1 = Tmp1 & "Right : " & r.Right & Chr$(13)
Tmp1 = Tmp1 & "Bottom : " & r.Bottom & Chr$(13)
Label3.Caption = Tmp1
For i = 1 To 11
c3D Label3, 0, 0
DoEvents
j = cSleep(140)
c3D Label3, 1, 0
DoEvents
j = cSleep(140)
Next i
End Sub
Private Sub TestCountDirectories()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Tmp1 = ""
Tmp1 = Tmp1 & "Number of directories in C:\ is " & cCountDirectories("C:\*.*") & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Number of directories in D:\ is " & cCountDirectories("D:\*.*") & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Number of directories in E:\ is " & cCountDirectories("E:\*.*") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To 10
k = cCountDirectories("C:\*.*")
Next i
Tmp1 = Tmp1 & "speed for " & 10 & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCountFiles()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Tmp1 = ""
Tmp1 = Tmp1 & "Number of files in C:\ is " & cCountFiles("C:\*.*") & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Number of files in D:\ is " & cCountFiles("D:\*.*") & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Number of files in E:\ is " & cCountFiles("E:\*.*") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To 10
k = cCountFiles("C:\*.*")
Next i
Tmp1 = Tmp1 & "speed for " & 10 & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCountI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Integer
ReDim array(20) As Integer
Call cRndInit(-1)
For i = LBound(array) To UBound(array)
array(i) = cRndI()
List1.AddItem "" & array(i)
Next i
Tmp1 = Tmp1 & "Count '" & array(5) & "' is " & cCountI(array(), array(5)) & Chr$(13)
Tmp1 = Tmp1 & "Count '" & array(10) & "' is " & cCountI(array(), array(10)) & Chr$(13)
Tmp1 = Tmp1 & "Count '" & array(15) & "' is " & cCountI(array(), array(15)) & Chr$(13)
Tmp1 = Tmp1 & "Count '" & array(20) & "' is " & cCountI(array(), array(20)) & Chr$(13)
Tmp1 = Tmp1 & "Count '" & -1234 & "' is " & cCountI(array(), -1234) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cCountI(array(), array(1))
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCreateAndFill()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Create and Fill a string of 40 chars with [" & Tmp & "] is "
Tmp1 = Title & cCreateAndFill(40, Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cCreateAndFill(40, Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCreateBits()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Create a string for 1024 bits is "
Tmp1 = Title & Len(cCreateBits(1024)) & " bytes" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cCreateBits(1024)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestCustomControls()
Dim i As Integer
Dim N As Integer
Dim Tmp1 As String
N = frmT2W.Count - 1
For i = 0 To N
Tmp1 = Tmp1 + "Control name is '" & cGetCtlNameIndex(frmT2W.Controls(i)) & "' Control Class is '" & cGetCtlClass(frmT2W.Controls(i)) & "'" + Chr$(13)
Next i
Label3.Caption = Tmp1
End Sub
Private Sub TestDAL(Management As Integer)
Dim Tmp As String
Dim ErrCode As Integer
Dim DA As tagDISKARRAY
ErrCode = cMakeDir("c:\t2w_tmp")
DA.nFilename = "c:\t2w_tmp\dalong.tmp"
DA.nType = DA_LONG
DA.nIsTyped = False
DA.nRows = 100
DA.nCols = 100
DA.nSheets = 2
Select Case Management
Case True 'create
ErrCode = cDACreate(DA, True)
Case False 'use
ErrCode = cDACreate(DA, False)
Case 1 'clear all
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClear(DA)
Case 2 'clear sheet 2
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearSheet(DA, 2)
Case 3 'clear last row
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, 1)
Case 4 'clear last col
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, 1)
Case 5 'clear last row in all sheets
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, -1)
Case 6 'clear last col in all sheets
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, -1)
End Select
Tmp = Tmp & "ErrCode = " & ErrCode & Chr$(13) & Chr$(13)
If (ErrCode = True) Then
Tmp = Tmp & "DA.daSize = " & DA.daSize & Chr$(13)
Tmp = Tmp & "DA.Signature = " & DA.signature & Chr$(13)
Tmp = Tmp & "DA.nFilename = " & Trim$(DA.nFilename) & Chr$(13)
Tmp = Tmp & "DA.nType = " & DA.nType & Chr$(13)
Tmp = Tmp & "DA.nIsTyped = " & DA.nIsTyped & Chr$(13)
Tmp = Tmp & "DA.nRows = " & DA.nRows & Chr$(13)
Tmp = Tmp & "DA.nCols = " & DA.nCols & Chr$(13)
Tmp = Tmp & "DA.nSheets = " & DA.nSheets & Chr$(13)
Tmp = Tmp & "DA.rHandle = " & DA.rHandle & Chr$(13)
Tmp = Tmp & "DA.rElementSize = " & DA.rElementSize & Chr$(13)
Tmp = Tmp & "DA.rFileSize = " & DA.rFileSize & Chr$(13)
Tmp = Tmp & "DA.rParts = " & DA.rParts & Chr$(13)
Tmp = Tmp & "DA.rRemain = " & DA.rRemain & Chr$(13)
Tmp = Tmp & "DA.rSheetSize = " & DA.rSheetSize & Chr$(13)
Tmp = Tmp & "DA.rTime = " & DA.rTime & Chr$(13) & Chr$(13)
If (Management = True) Then
Call cDAPut(DA, 1, 1, 1, 12345)
Call cDAPut(DA, 1, DA.nCols, 1, 56789)
Call cDAPut(DA, DA.nRows, 1, 1, 54321)
Call cDAPut(DA, DA.nRows, DA.nCols, 1, 98765)
Call cDAPut(DA, 1, 1, 2, 12345678)
Call cDAPut(DA, 1, DA.nCols, 2, 34567890)
Call cDAPut(DA, DA.nRows, 1, 2, 123456789)
Call cDAPut(DA, DA.nRows, DA.nCols, 2, 987654321)
End If
Tmp = Tmp & "R:1 , C:1 , D:1, Value : " & cDAGet(DA, 1, 1, 1) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:1 , C:" & DA.nCols & ", D:1, Value : " & cDAGet(DA, 1, DA.nCols, 1) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:" & DA.nRows & ", C:1 , D:1, Value : " & cDAGet(DA, DA.nRows, 1, 1) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:1, Value : " & cDAGet(DA, DA.nRows, DA.nCols, 1) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:1 , C:1 , D:2, Value : " & cDAGet(DA, 1, 1, 2) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:1 , C:" & DA.nCols & ", D:2, Value : " & cDAGet(DA, 1, DA.nCols, 2) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:" & DA.nRows & ", C:1 , D:2, Value : " & cDAGet(DA, DA.nRows, 1, 2) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:2, Value : " & cDAGet(DA, DA.nRows, DA.nCols, 2) & " , time : " & DA.rTime & Chr$(13)
End If
Call cDAClose(DA, False)
Label3.Caption = Tmp
End Sub
Private Sub TestDAStr(Management As Integer)
Dim Tmp As String
Dim ErrCode As Integer
Dim DA As tagDISKARRAY
ErrCode = cMakeDir("c:\t2w_tmp")
DA.nFilename = "c:\t2w_tmp\dastring.tmp"
DA.nType = 50
DA.nIsTyped = False
DA.nRows = 100
DA.nCols = 100
DA.nSheets = 2
Select Case Management
Case True 'create
ErrCode = cDACreate(DA, True)
Case False 'use
ErrCode = cDACreate(DA, False)
Case 1 'clear all
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClear(DA)
Case 2 'clear sheet 2
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearSheet(DA, 2)
Case 3 'clear last row
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, 1)
Case 4 'clear last col
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, 1)
Case 5 'clear last row in all sheets
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, -1)
Case 6 'clear last col in all sheets
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, -1)
End Select
Tmp = Tmp & "ErrCode = " & ErrCode & Chr$(13) & Chr$(13)
If (ErrCode = True) Then
Tmp = Tmp & "DA.daSize = " & DA.daSize & Chr$(13)
Tmp = Tmp & "DA.Signature = " & DA.signature & Chr$(13)
Tmp = Tmp & "DA.nFilename = " & Trim$(DA.nFilename) & Chr$(13)
Tmp = Tmp & "DA.nType = " & DA.nType & Chr$(13)
Tmp = Tmp & "DA.nIsTyped = " & DA.nIsTyped & Chr$(13)
Tmp = Tmp & "DA.nRows = " & DA.nRows & Chr$(13)
Tmp = Tmp & "DA.nCols = " & DA.nCols & Chr$(13)
Tmp = Tmp & "DA.nSheets = " & DA.nSheets & Chr$(13)
Tmp = Tmp & "DA.rHandle = " & DA.rHandle & Chr$(13)
Tmp = Tmp & "DA.rElementSize = " & DA.rElementSize & Chr$(13)
Tmp = Tmp & "DA.rFileSize = " & DA.rFileSize & Chr$(13)
Tmp = Tmp & "DA.rParts = " & DA.rParts & Chr$(13)
Tmp = Tmp & "DA.rRemain = " & DA.rRemain & Chr$(13)
Tmp = Tmp & "DA.rSheetSize = " & DA.rSheetSize & Chr$(13)
Tmp = Tmp & "DA.rTime = " & DA.rTime & Chr$(13) & Chr$(13)
If (Management = True) Then
Call cDAPut(DA, 1, 1, 1, "D:1, ABCDEFGHIJ")
Call cDAPut(DA, 1, DA.nCols, 1, "D:1, abcdefghij")
Call cDAPut(DA, DA.nRows, 1, 1, "D:1, OPQRSTUVWXYZ")
Call cDAPut(DA, DA.nRows, DA.nCols, 1, "D:1, oprqstuvwxyz")
Call cDAPut(DA, 1, 1, 2, "D:2, 1234567890")
Call cDAPut(DA, 1, DA.nCols, 2, "D:2, 0987654321")
Call cDAPut(DA, DA.nRows, 1, 2, "D:2, 12345ABCDE")
Call cDAPut(DA, DA.nRows, DA.nCols, 2, "D:2, VWXYZ54321")
End If
Tmp = Tmp & "R:1 , C:1 , D:1, Value : " & Trim$(cDAGet(DA, 1, 1, 1)) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:1 , C:" & DA.nCols & ", D:1, Value : " & Trim$(cDAGet(DA, 1, DA.nCols, 1)) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:" & DA.nRows & ", C:1 , D:1, Value : " & Trim$(cDAGet(DA, DA.nRows, 1, 1)) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:1, Value : " & Trim$(cDAGet(DA, DA.nRows, DA.nCols, 1)) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:1 , C:1 , D:2, Value : " & Trim$(cDAGet(DA, 1, 1, 2)) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:1 , C:" & DA.nCols & ", D:2, Value : " & Trim$(cDAGet(DA, 1, DA.nCols, 2)) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:" & DA.nRows & ", C:1 , D:2, Value : " & Trim$(cDAGet(DA, DA.nRows, 1, 2)) & " , time : " & DA.rTime & Chr$(13)
Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:2, Value : " & Trim$(cDAGet(DA, DA.nRows, DA.nCols, 2)) & " , time : " & DA.rTime & Chr$(13)
End If
Call cDAClose(DA, False)
Label3.Caption = Tmp
End Sub
Private Sub TestDate()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim nYear As Integer
Dim nMonth As Integer
Dim nDay As Integer
Dim nNow As Long
nNow = Int(Now)
nYear = Year(nNow)
nMonth = Month(nNow)
nDay = Day(nNow)
Tmp1 = "Today is the '" & Format$(Int(Now), "short date") & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Day of the week (ISO, U.S., Special) is (" & cDayOfWeek(nYear, nMonth, nDay, True) & ", " & cDayOfWeek(nYear, nMonth, nDay, False) & ", " & cDayOfWeek(nYear, nMonth, nDay, 1) & ")" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Day of the year is '" & cDayOfYear(nYear, nMonth, nDay) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Week of the year (ISO, U.S., Special) is (" & cWeekOfYear(nYear, nMonth, nDay, True) & ", " & cWeekOfYear(nYear, nMonth, nDay, False) & ", " & cWeekOfYear(nYear, nMonth, nDay, 1) & ")" & Chr$(13) & Chr$(13)
nNow = cDateToScalar(nYear, nMonth, nDay)
Tmp1 = Tmp1 & "Scalar day is '" & nNow & "'" & Chr$(13)
nYear = 0
nMonth = 0
nDay = 0
Call cScalarToDate(nNow, nYear, nMonth, nDay)
Tmp1 = Tmp1 & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & Chr$(13) & Chr$(13) & Chr$(13)
nNow = Int(Now)
nYear = Year(nNow)
nMonth = 1
nDay = 1
Tmp1 = Tmp1 & "First Day is the '" & Format$(DateSerial(nYear, nMonth, nDay), "short date") & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Day of the week (ISO, U.S., Special) is (" & cDayOfWeek(nYear, nMonth, nDay, True) & ", " & cDayOfWeek(nYear, nMonth, nDay, False) & ", " & cDayOfWeek(nYear, nMonth, nDay, 1) & ")" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Day of the year is '" & cDayOfYear(nYear, nMonth, nDay) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Week of the year (ISO, U.S., Special) is (" & cWeekOfYear(nYear, nMonth, nDay, True) & ", " & cWeekOfYear(nYear, nMonth, nDay, False) & ", " & cWeekOfYear(nYear, nMonth, nDay, 1) & ")" & Chr$(13) & Chr$(13)
nNow = cDateToScalar(nYear, nMonth, nDay)
Tmp1 = Tmp1 & "Scalar day is '" & nNow & "'" & Chr$(13)
nYear = 0
nMonth = 0
nDay = 0
Call cScalarToDate(nNow, nYear, nMonth, nDay)
Tmp1 = Tmp1 & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestDAType(Management As Integer)
Dim Tmp As String
Dim ErrCode As Integer
Dim DA As tagDISKARRAY
Dim TE As tagTASKENTRY
ErrCode = cMakeDir("c:\t2w_tmp")
DA.nFilename = "c:\t2w_tmp\datype.tmp"
DA.nType = Len(TE)
DA.nIsTyped = True
DA.nRows = 100
DA.nCols = 100
DA.nSheets = 2
Select Case Management
Case True 'create
ErrCode = cDACreate(DA, True)
Case False 'use
ErrCode = cDACreate(DA, False)
Case 1 'clear all
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClear(DA)
Case 2 'clear sheet 2
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearSheet(DA, 2)
Case 3 'clear last row
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, 1)
Case 4 'clear last col
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, 1)
Case 5 'clear last row in all sheets
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, -1)
Case 6 'clear last col in all sheets
ErrCode = cDACreate(DA, False)
If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, -1)
End Select
Tmp = Tmp & "ErrCode = " & ErrCode & Chr$(13) & Chr$(13)
If (ErrCode = True) Then
Tmp = Tmp & "DA.daSize = " & DA.daSize & Chr$(13)
Tmp = Tmp & "DA.Signature = " & DA.signature & Chr$(13)
Tmp = Tmp & "DA.nFilename = " & Trim$(DA.nFilename) & Chr$(13)
Tmp = Tmp & "DA.nType = " & DA.nType & Chr$(13)
Tmp = Tmp & "DA.nIsTyped = " & DA.nIsTyped & Chr$(13)
Tmp = Tmp & "DA.nRows = " & DA.nRows & Chr$(13)
Tmp = Tmp & "DA.nCols = " & DA.nCols & Chr$(13)
Tmp = Tmp & "DA.nSheets = " & DA.nSheets & Chr$(13)
Tmp = Tmp & "DA.rHandle = " & DA.rHandle & Chr$(13)
Tmp = Tmp & "DA.rElementSize = " & DA.rElementSize & Chr$(13)
Tmp = Tmp & "DA.rFileSize = " & DA.rFileSize & Chr$(13)
Tmp = Tmp & "DA.rParts = " & DA.rParts & Chr$(13)
Tmp = Tmp & "DA.rRemain = " & DA.rRemain & Chr$(13)
Tmp = Tmp & "DA.rSheetSize = " & DA.rSheetSize & Chr$(13)
Tmp = Tmp & "DA.rTime = " & DA.rTime & Chr$(13) & Chr$(13)
If (Management = True) Then
ErrCode = cTasks(TE, True)
Call cDAPutType(DA, 1, 1, 1, TE)
ErrCode = cTasks(TE, False)
Call cDAPutType(DA, 1, DA.nCols, 1, TE)
ErrCode = cTasks(TE, False)
Call cDAPutType(DA, DA.nRows, 1, 1, TE)
ErrCode = cTasks(TE, False)
Call cDAPutType(DA, DA.nRows, DA.nCols, 1, TE)
ErrCode = cTasks(TE, False)
Call cDAPutType(DA, 1, 1, 2, TE)
ErrCode = cTasks(TE, False)
Call cDAPutType(DA, 1, DA.nCols, 2, TE)
ErrCode = cTasks(TE, False)
Call cDAPutType(DA, DA.nRows, 1, 2, TE)
ErrCode = cTasks(TE, False)
Call cDAPutType(DA, DA.nRows, DA.nCols, 2, TE)
End If
Call cDAGetType(DA, 1, 1, 1, TE)
Tmp = Tmp & "R:1 , C:1 , D:1, TE.szModule : " & cCompress(TE.szModule) & " , time : " & DA.rTime & Chr$(13)
Call cDAGetType(DA, 1, DA.nCols, 1, TE)
Tmp = Tmp & "R:1 , C:" & DA.nCols & ", D:1, TE.szModule : " & cCompress(TE.szModule) & " , time : " & DA.rTime & Chr$(13)
Call cDAGetType(DA, DA.nRows, 1, 1, TE)
Tmp = Tmp & "R:" & DA.nRows & ", C:1 , D:1, TE.szModule : " & cCompress(TE.szModule) & " , time : " & DA.rTime & Chr$(13)
Call cDAGetType(DA, DA.nRows, DA.nCols, 1, TE)
Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:1, TE.szModule : " & cCompress(TE.szModule) & " , time : " & DA.rTime & Chr$(13)
Call cDAGetType(DA, 1, 1, 2, TE)
Tmp = Tmp & "R:1 , C:1 , D:2, TE.szModule : " & cCompress(TE.szModule) & " , time : " & DA.rTime & Chr$(13)
Call cDAGetType(DA, 1, DA.nCols, 2, TE)
Tmp = Tmp & "R:1 , C:" & DA.nCols & ", D:2, TE.szModule : " & cCompress(TE.szModule) & " , time : " & DA.rTime & Chr$(13)
Call cDAGetType(DA, DA.nRows, 1, 2, TE)
Tmp = Tmp & "R:" & DA.nRows & ", C:1 , D:2, TE.szModule : " & cCompress(TE.szModule) & " , time : " & DA.rTime & Chr$(13)
Call cDAGetType(DA, DA.nRows, DA.nCols, 2, TE)
Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:2, TE.szModule : " & cCompress(TE.szModule) & " , time : " & DA.rTime & Chr$(13)
End If
Call cDAClose(DA, False)
Label3.Caption = Tmp
End Sub
Private Sub TestDecrypt()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Integer
Tmp3 = cToHexa(Format$(76543210))
Tmp2 = "T2WIN-16"
For i = ENCRYPT_LEVEL_0 To ENCRYPT_LEVEL_4
Tmp = cEncrypt(Tmp2, Tmp3, i)
Tmp1 = Tmp1 & "Decrypt (level " & i & ") of [" & Tmp & "] with '?' is "
Tmp1 = Tmp1 & "[" & cDecrypt(Tmp, Tmp3, i) & "]" & Chr$(13) & Chr$(13)
Next i
cStartBasisTimer
For i = 1 To Item
Tmp2 = cDecrypt(Tmp2, Tmp1, ENCRYPT_LEVEL_3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestDeviationI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Double
Dim N As Double
ReDim array(ItemMean) As Integer
Randomize Timer
m = 0
For i = LBound(array) To UBound(array)
array(i) = Int(RandI * Rnd(1))
m = m + array(i)
List1.AddItem "" & array(i)
Next i
m = m / (UBound(array) - LBound(array) + 1)
N = 0
For i = LBound(array) To UBound(array)
N = N + ((array(i) - m) * (array(i) - m))
Next i
N = (Sqr(N) / (UBound(array) - LBound(array) + 1))
Tmp1 = "The Deviation of a integer array of " & (ItemMean + 1) & " elements is " & Chr$(13) & Chr$(13) & cDeviationI(array()) & " (" & N & ")" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
m = cDeviationI(array())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestDOSGetVolLabel()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
For i = 1 To 4
Tmp2 = cDOSGetVolumeLabel(Chr$(64 + i))
If (Len(Tmp2) > 0) Then
Tmp1 = Tmp1 & "Drive " & Chr$(64 + i) & " : '" & Tmp2 & "'" & Chr$(13)
Else
Tmp1 = Tmp1 & "Drive " & Chr$(64 + i) & " : no volume label" & Chr$(13)
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cDOSGetVolumeLabel("C")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestDOSMediaID()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim MEDIAID As tagMEDIAID
For i = 1 To 7
If (cDOSGetMediaID(Chr$(64 + i), MEDIAID) = True) Then
Tmp1 = Tmp1 & "Drive " & Chr$(64 + i) & " : " & Chr$(13)
Tmp1 = Tmp1 & " SerialNumber is '" & Hex$(MEDIAID.SerialNumber) & "'" & Chr$(13)
Tmp1 = Tmp1 & " VolLabel is '" & MEDIAID.VolLabel & "'" & Chr$(13)
Tmp1 = Tmp1 & " FileSysType is '" & MEDIAID.FileSysType & "'" & Chr$(13) & Chr$(13)
Else
Tmp1 = Tmp1 & "Drive " & Chr$(64 + i) & " : no media id" & Chr$(13) & Chr$(13)
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cDOSGetMediaID("", MEDIAID)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestDriveType()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = ""
For i = 1 To 26
j = cGetDriveType(Chr$(64 + i))
If (j > 0) Then
Tmp1 = Tmp1 & "'" & Chr$(64 + i) & ":' is "
Select Case j
Case 2
Tmp1 = Tmp1 & "removable disk" & Chr$(13)
Case 3
Tmp1 = Tmp1 & "fixed disk" & Chr$(13)
Case 4
Tmp1 = Tmp1 & "remote disk" & Chr$(13)
Case 20
Tmp1 = Tmp1 & "cd-rom" & Chr$(13)
End Select
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cGetDriveType("C")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestEncrypt()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Integer
Tmp3 = cToHexa(Format$(76543210))
Tmp2 = "T2WIN-16"
Tmp = Text1.Text
For i = ENCRYPT_LEVEL_0 To ENCRYPT_LEVEL_4
Tmp1 = Tmp1 & "Encrypt (level " & i & ") of [" & Tmp2 & "] with '?' is "
Tmp1 = Tmp1 & "[" & cEncrypt(Tmp2, Tmp3, i) & "]" & Chr$(13) & Chr$(13)
Next i
cStartBasisTimer
For i = 1 To Item
Tmp2 = cEncrypt(Tmp2, Tmp1, ENCRYPT_LEVEL_3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestExpandTab()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "A" & Chr$(9) & "BC" & Chr$(9) & "DEF" & Chr$(9) & "GHIJ" & Chr$(9) & ""
Title = "Expand tab (2 chars) into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Title & cExpandTab(Tmp, 2) & Chr$(13) & Chr$(13)
Tmp = "A" & Chr$(9) & "BC" & Chr$(9) & "DEF" & Chr$(9) & "GHIJ" & Chr$(9) & ""
Title = "Expand tab (4 chars) into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & Title & cExpandTab(Tmp, 4) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cExpandTab(Tmp, 3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileChangeChars()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim Tmp4 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\autoexec.tab"
Tmp3 = "REM"
Tmp4 = "rem"
Tmp1 = Tmp1 & "File Copy " & Tmp & " to " & Tmp2 & " is " & cFileCopy(Tmp, Tmp2) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File Change Chars : '" & Tmp3 & "' -> '" & Tmp4 & "' in '" & Tmp2 & "' is " & cFileChangeChars(Tmp2, Tmp3, Tmp4, "c:\tmp.tmp") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
If ((i Mod 2) = 1) Then
j = cFileChangeChars(Tmp2, Tmp3, Tmp4, "")
Else
j = cFileChangeChars(Tmp2, Tmp4, Tmp3, "")
End If
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileCmp()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\tmp\autoexec.bat"
Tmp1 = Tmp1 & "Compare file attribute " & Tmp & " with " & Tmp2 & " is " & cCmpFileAttribute(Tmp, Tmp2) & Chr$(13)
Tmp1 = Tmp1 & "Compare file size " & Tmp & " with " & Tmp2 & " is " & cCmpFileSize(Tmp, Tmp2) & Chr$(13)
Tmp1 = Tmp1 & "Compare file time " & Tmp & " with " & Tmp2 & " is " & cCmpFileTime(Tmp, Tmp2) & Chr$(13)
Tmp1 = Tmp1 & "Compare file contents (case sensitive) " & Tmp & " with " & Tmp2 & " is " & cCmpFileContents(Tmp, Tmp2, True) & Chr$(13)
Tmp1 = Tmp1 & "Compare file contents (not sensitive) " & Tmp & " with " & Tmp2 & " is " & cCmpFileContents(Tmp, Tmp2, False) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cCmpFileSize(Tmp, Tmp2)
Next i
Tmp1 = Tmp1 & "file size speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cCmpFileContents(Tmp, Tmp2, True)
Next i
Tmp1 = Tmp1 & "file contents (cs) speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cCmpFileContents(Tmp, Tmp2, False)
Next i
Tmp1 = Tmp1 & "file contents (ns) speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileCompress()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\autoexec.tb1"
Tmp3 = "c:\autoexec.tb2"
Tmp1 = Tmp1 & "File Compress '" & Tmp & "' to '" & Tmp2 & "' is " & cFileCompress(Tmp, Tmp2) & Chr$(13)
Tmp1 = Tmp1 & "File Expand '" & Tmp2 & "' to '" & Tmp3 & "' is " & cFileExpand(Tmp2, Tmp3) & Chr$(13)
Tmp1 = Tmp1 & "Compare file contents (not sensitive) '" & Tmp & "' with '" & Tmp3 & "' is " & IIf(cCmpFileContents(Tmp, Tmp3, False) = -1, "same", "not same") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFileCompress(Tmp, Tmp2)
Next i
j = cFileExpand(Tmp2, Tmp3)
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileCompressTab()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\autoexec.tb1"
Tmp3 = "c:\autoexec.tb2"
For i = 1 To 4
Tmp1 = Tmp1 & "File CompressTab (" & i & " spaces = 1 tab) " & Tmp & " to " & Tmp2 & " is " & cFileCompressTab(Tmp, Tmp2, i) & Chr$(13)
Tmp1 = Tmp1 & "File ExpandTab (" & i & " spaces = 1 tab) " & Tmp2 & " to " & Tmp3 & " is " & cFileExpandTab(Tmp2, Tmp3, i) & Chr$(13)
Tmp1 = Tmp1 & "Compare file contents (not sensitive) '" & Tmp & "' with '" & Tmp3 & "' is " & IIf(cCmpFileContents(Tmp, Tmp3, False) = -1, "same", "not same") & Chr$(13) & Chr$(13)
Next i
cStartBasisTimer
For i = 1 To Item
j = cFileCompressTab(Tmp, Tmp2, 3)
Next i
j = cFileExpandTab(Tmp2, Tmp3, 3)
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileCopy()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\autoexec.tab"
Tmp1 = Tmp1 & "File Copy " & Tmp & " to " & Tmp2 & " is " & cFileCopy(Tmp, Tmp2) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFileCopy(Tmp, Tmp2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileCRC32()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Tmp = "c:\config.sys"
Title = "CRC32 for file '" & Tmp & "' is "
Tmp1 = Tmp1 & Title & Hex$(cFileCRC32(Tmp, OPEN_MODE_BINARY)) & Chr$(13) & Chr$(13)
Tmp = "c:\autoexec.bat"
Title = "CRC32 for file '" & Tmp & "' is "
Tmp1 = Tmp1 & Title & Hex$(cFileCRC32(Tmp, OPEN_MODE_BINARY)) & Chr$(13) & Chr$(13)
Tmp = "c:\command.com"
Title = "CRC32 for file '" & Tmp & "' is "
Tmp1 = Tmp1 & Title & Hex$(cFileCRC32(Tmp, OPEN_MODE_BINARY)) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
k = cFileCRC32(Tmp, OPEN_MODE_BINARY)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileEncrypt()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim Tmp4 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\ac.tb1"
Tmp3 = "c:\ac.tb2"
Tmp4 = cToHexa(Format$(76543210))
For i = ENCRYPT_LEVEL_0 To ENCRYPT_LEVEL_4
Tmp1 = Tmp1 & "Encrypt (level " & i & ") '" & Tmp & "' with '?' to '" & Tmp2 & "' is " & cFileEncrypt(Tmp, Tmp2, Tmp4, i) & Chr$(13)
Tmp1 = Tmp1 & "Decrypt (level " & i & ") '" & Tmp2 & "' with '?' to '" & Tmp3 & "' is " & cFileDecrypt(Tmp2, Tmp3, Tmp4, i) & Chr$(13)
Tmp1 = Tmp1 & "Compare (ns) '" & Tmp & "' with '" & Tmp3 & "' is " & IIf(cCmpFileContents(Tmp, Tmp3, False) = -1, "same", "not same") & Chr$(13) & Chr$(13)
Next i
cStartBasisTimer
For i = 1 To Item
j = cFileEncrypt(Tmp, Tmp2, Tmp4, ENCRYPT_LEVEL_3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileFilter()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\autoexec.tab"
Tmp3 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Tmp3 = Tmp3 + LCase$(Tmp)
Tmp1 = Tmp1 & "File Filter (A-Z, a-z) " & Tmp & " to " & Tmp2 & " is " & cFileFilter(Tmp, Tmp2, Tmp3) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFileFilter(Tmp, Tmp2, Tmp3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileFilterNot()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\autoexec.tab"
Tmp3 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Tmp3 = Tmp3 + LCase$(Tmp) + " =" + Chr$(13) + Chr$(10)
Tmp1 = Tmp1 & "File Filter Not in (A-Z, a-z, CR, LF, SPACE, =) " & Tmp & " to " & Tmp2 & " is " & cFileFilterNot(Tmp, Tmp2, Tmp3) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFileFilterNot(Tmp, Tmp2, Tmp3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileGetAttrib()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = cFilesInDirectory("*.*", True)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
Tmp = cSubDirectory("*.*", True)
Tmp = cSubDirectory("*.*", False)
Tmp = cSubDirectory("*.*", False)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFileGetAttrib(Tmp, FileAttrib)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileLineCount()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "C:\AUTOEXEC.BAT"
Tmp1 = Tmp1 & "Total lines in '" & Tmp & "' are " & cFileLineCount(Tmp) & Chr$(13) & Chr$(13)
Tmp = "C:\CONFIG.SYS"
Tmp1 = Tmp1 & "Total lines in '" & Tmp & "' are " & cFileLineCount(Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFileLineCount(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileMerge()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\config.sys"
Tmp3 = "c:\merge.byt"
Tmp1 = Tmp1 & "File Merge '" & Tmp & "' and '" & Tmp2 & "' to '" & Tmp3 & "' is " & cFileMerge(Tmp, Tmp2, Tmp3) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFileMerge(Tmp, Tmp2, Tmp3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFilePathExists()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "File t2win-16.dll " & IIf(cFilePathExists("t2win-16.dll") = True, "found", "not found") & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Path \windows " & IIf(cFilePathExists("\windows") = True, "found", "not found") & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Path \windows\wintime " & IIf(cFilePathExists("\windows\wintime") = True, "found", "not found") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFilePathExists("t2win-16.dll")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileResetAllAttrib()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
FileAttrib.Archive = False
FileAttrib.Hidden = True
FileAttrib.ReadOnly = True
FileAttrib.System = True
j = cFileResetAllAttrib(Tmp)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been reset with" & Chr$(13)
Tmp1 = Tmp1 & " flag archive" & Chr$(13)
Tmp1 = Tmp1 & " flag hidden" & Chr$(13)
Tmp1 = Tmp1 & " flag read-only" & Chr$(13)
Tmp1 = Tmp1 & " flag system" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileResetAllAttrib(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileResetArchive()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim nArchive As Integer
Dim nHidden As Integer
Dim nReadOnly As Integer
Dim nSubDir As Integer
Dim nSystem As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
j = cFileSetAllAttrib(Tmp)
j = cFileResetArchive(Tmp)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been reset with" & Chr$(13)
Tmp1 = Tmp1 & " flag archive" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileResetArchive(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileResetHidden()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim nArchive As Integer
Dim nHidden As Integer
Dim nReadOnly As Integer
Dim nSubDir As Integer
Dim nSystem As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
j = cFileSetAllAttrib(Tmp)
j = cFileResetHidden(Tmp)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been reset with" & Chr$(13)
Tmp1 = Tmp1 & " flag hidden" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileResetHidden(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileResetReadOnly()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim FileAttrib As FileAttributeType
Dim nArchive As Integer
Dim nHidden As Integer
Dim nReadOnly As Integer
Dim nSubDir As Integer
Dim nSystem As Integer
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
j = cFileSetAllAttrib(Tmp)
j = cFileResetReadOnly(Tmp)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been reset with" & Chr$(13)
Tmp1 = Tmp1 & " flag read-only" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileResetReadOnly(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileResetSystem()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
j = cFileSetAllAttrib(Tmp)
j = cFileResetSystem(Tmp)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been reset with" & Chr$(13)
Tmp1 = Tmp1 & " flag system" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileResetSystem(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileS()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim Tmp4 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp3 = "re"
Tmp4 = "SET"
Tmp1 = Tmp1 & "File Search (insensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp3, False) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File Search and Count (insensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp3, False) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File Search (insensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp4, False) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File Search and Count (insensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp4, False) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File Search (sensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp3, True) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File Search and Count (sensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp3, True) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File Search (sensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp4, True) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File Search and Count (sensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp4, True) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
If ((i Mod 2) = 1) Then
j = cFileSearch(Tmp, Tmp3, False)
Else
j = cFileSearchCount(Tmp, Tmp3, False)
End If
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetAllAttrib()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
j = cFileSetAllAttrib(Tmp)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
Tmp1 = Tmp1 & " flag archive" & Chr$(13)
Tmp1 = Tmp1 & " flag hidden" & Chr$(13)
Tmp1 = Tmp1 & " flag read-only" & Chr$(13)
Tmp1 = Tmp1 & " flag system" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileSetAllAttrib(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetArchive()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
j = cFileSetArchive(Tmp)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
Tmp1 = Tmp1 & " flag archive" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileSetArchive(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetAttrib()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
FileAttrib.Archive = False
FileAttrib.Hidden = True
FileAttrib.ReadOnly = True
FileAttrib.System = True
j = cFileSetAttrib(Tmp, FileAttrib)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
Tmp1 = Tmp1 & " flag hidden" & Chr$(13)
Tmp1 = Tmp1 & " flag read-only" & Chr$(13)
Tmp1 = Tmp1 & " flag system" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileSetAttrib(Tmp, FileAttrib)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetHidden()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
j = cFileSetHidden(Tmp)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
Tmp1 = Tmp1 & " flag hidden" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileSetHidden(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetReadOnly()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
j = cFileSetReadOnly(Tmp)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
Tmp1 = Tmp1 & " flag read-only" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileSetReadOnly(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetSystem()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim FileAttrib As FileAttributeType
Tmp1 = ""
Tmp = "TEST.DAT"
Call CreateFile
j = cFileSetSystem(Tmp)
j = cFileGetAttrib(Tmp, FileAttrib)
Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
Tmp1 = Tmp1 & " flag system" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileSetSystem(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFilesInDirectory()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Title = "The 10 first files in this directory are" & Chr$(13) & Chr$(13)
Tmp1 = Title
Tmp2 = cFilesInDirectory("*.*", True)
For i = 1 To 10
Tmp1 = Tmp1 & Tmp2 & Chr$(13)
Tmp2 = cFilesInDirectory("*.*", False)
Next i
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp = cFilesInDirectory("*.*", True)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFilesInDirOnDisk()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
j = cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_ALL)
Tmp1 = "The files (any attributes) in 'C:\' are (" & j & ") see first list" & Chr$(13) & Chr$(13)
j = cFileToListBox(List1.hWnd, "c:\test.tmp")
j = cFilesInDirOnDisk("c:\test1.tmp", "c:\*.*", -A_ARCH)
Tmp1 = Tmp1 & "The files (only archive, not other attribute) in 'C:\' are (" & j & ") see second list" & Chr$(13) & Chr$(13)
j = cFileToListBox(List2.hWnd, "c:\test1.tmp")
Tmp1 = Tmp1 & "Number of files (with at least one of the following attribute)" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Any : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_ALL) & Chr$(13)
Tmp1 = Tmp1 & "(N)ormal : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_NORMAL) & Chr$(13)
Tmp1 = Tmp1 & "(A)rchive, (N)ormal : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_NORMAL_ARCHIVE) & Chr$(13)
Tmp1 = Tmp1 & "(A)rchive : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_ARCH) & Chr$(13)
Tmp1 = Tmp1 & "(A)rchive, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_ARCH Or A_RDONLY) & Chr$(13)
Tmp1 = Tmp1 & "(S)ystem, (H)idden, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_SYSTEM Or A_HIDDEN Or A_RDONLY) & Chr$(13)
Tmp1 = Tmp1 & "(H)idden, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_HIDDEN Or A_RDONLY) & Chr$(13)
Tmp1 = Tmp1 & "(R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_RDONLY) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Number of files (with exact attribute excluding all others)" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "(N)ormal : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_NORMAL)) & Chr$(13)
Tmp1 = Tmp1 & "(A)rchive : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_ARCH)) & Chr$(13)
Tmp1 = Tmp1 & "(A)rchive, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_ARCH Or A_RDONLY)) & Chr$(13)
Tmp1 = Tmp1 & "(S)ystem, (H)idden, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_SYSTEM Or A_HIDDEN Or A_RDONLY)) & Chr$(13)
Tmp1 = Tmp1 & "(H)idden, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_HIDDEN Or A_RDONLY)) & Chr$(13)
Tmp1 = Tmp1 & "(R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_RDONLY)) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_ALL)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFilesInDirToArray()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Long
Dim r As Integer
Dim m1 As Integer
Dim m2 As Integer
m1 = -999
m2 = 1000
ReDim AD(m1 To m2) As String
' initialization because we use ReDim without Global definition
'For i = m1 To m2
' AD(i) = Space$(256)
'Next i
r = cFilesInDirToArray("C:\*.*", A_ALL, AD())
Tmp1 = "Reading directory 'C:\*.*' into AD(" & m1 & " To " & m2 & ") is '" & r & "'" & Chr$(13)
Tmp1 = Tmp1 & " The 3 (on " & r & ") first files in array are : " & Chr$(13) & Chr$(13)
For i = 0 To 2
Tmp1 = Tmp1 & AD(m1 + i) & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & " The 3 (on " & r & ") last files in array are : " & Chr$(13) & Chr$(13)
For i = 0 To 2
Tmp1 = Tmp1 & AD(m1 + r - 1 - 2 + i) & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
r = cArrayToListBox(List1.hWnd, AD())
Tmp2 = cGetDefaultCurrentDir()
r = cFilesInDirToArray("*.*", A_ALL, AD())
Tmp1 = Tmp1 & "Reading directory '" & Tmp2 & "' into AD(" & m1 & " To " & m2 & ") is '" & r & "'" & Chr$(13)
Tmp1 = Tmp1 & " The 3 (on " & r & ") first files in array are : " & Chr$(13) & Chr$(13)
For i = 0 To 2
Tmp1 = Tmp1 & AD(m1 + i) & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & " The 3 (on " & r & ") last files in array are : " & Chr$(13) & Chr$(13)
For i = 0 To 2
Tmp1 = Tmp1 & AD(m1 + r - 1 - 2 + i) & Chr$(13)
Next i
r = cArrayToListBox(List2.hWnd, AD())
cStartBasisTimer
For i = 1 To Item
r = cFilesInDirToArray("C:\*.*", A_ALL, AD())
Next i
Tmp1 = Tmp1 & Chr$(13) & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFilesInfoInDir()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim FI As tagFILEINFO
Title = "The 7 first files in the current directory '" & cGetDefaultCurrentDir() & "' are" & Chr$(13) & Chr$(13)
Tmp1 = Title
Tmp2 = cFilesInfoInDir("*.*", FI, True)
For i = 1 To 7
Tmp1 = Tmp1 & Tmp2 & ", " & FI.fSize & ", " & FI.fDate & ", " & FI.fTime & ", " & FI.fAttribute & Chr$(13)
Tmp2 = cFilesInfoInDir("*.*", FI, False)
Next i
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp = cFilesInfoInDir("*.*", FI, True)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileSize()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Tmp1 = "File size for t2win-16.dll is " & cFileSize("t2win-16.dll") & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File size for Path \windows " & cFileSize("\windows") & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File size for Path \windows\wintime " & cFileSize("\windows\wintime") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
k = cFileSize("t2win-16.dll")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileSort(SortMethod As Integer, VarFix As Integer)
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Integer
Dim N As Integer
Dim m As Double
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\ae" & Format$(SortMethod) & ".tab"
Close #1
Open Tmp For Input Shared As #1
While Not EOF(1)
Line Input #1, Tmp3
List1.AddItem Tmp3
Wend
Close #1
If (VarFix = False) Then
j = cFileSort("c:\autoexec.bat", Tmp2, SortMethod, -1, -1, -1, N)
Else
'j = cFileSort("c:\autoexec.bat", Tmp2, SortMethod, 20, 0, 10, n)
j = cFileSort("c:\tmp\_dat_hr.Dat", "c:\tmp\tmp" & SortMethod & ".tmp", SortMethod, 50, 0, 11, N)
End If
Close #1
Open Tmp2 For Input Shared As #1
While Not EOF(1)
Line Input #1, Tmp3
List2.AddItem Tmp3
Wend
Close #1
Select Case SortMethod
Case (SORT_ASCENDING + SORT_CASE_SENSITIVE):
Tmp1 = Tmp1 + "Sort '" & Tmp & "' into '" & Tmp2 & "' in ASC and CS is '" & j & "' and records are '" & N & "'"
Case (SORT_DESCENDING + SORT_CASE_SENSITIVE):
Tmp1 = Tmp1 + "Sort '" & Tmp & "' into '" & Tmp2 & "' in DSC and CS is '" & j & "' and records are '" & N & "'"
Case (SORT_ASCENDING + SORT_CASE_INSENSITIVE):
Tmp1 = Tmp1 + "Sort '" & Tmp & "' into '" & Tmp2 & "' in ASC and NS is '" & j & "' and records are '" & N & "'"
Case (SORT_DESCENDING + SORT_CASE_INSENSITIVE):
Tmp1 = Tmp1 + "Sort '" & Tmp & "' into '" & Tmp2 & "' in DSC and NS is '" & j & "' and records are '" & N & "'"
End Select
Tmp1 = Tmp1 & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFileSort(Tmp, Tmp2, SortMethod, -1, -1, -1, N)
DoEvents
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileSR()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim Tmp4 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\autoexec.tab"
Tmp3 = "SET "
Tmp4 = "rem SET "
Tmp1 = Tmp1 & "File Copy " & Tmp & " to " & Tmp2 & " is " & cFileCopy(Tmp, Tmp2) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File Search-Replace (insensitive) : '" & Tmp3 & "' -> '" & Tmp4 & "' in '" & Tmp2 & "' is " & cFileSearchAndReplace(Tmp2, Tmp3, Tmp4, "c:\tmp.tmp", False) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File Search-Replace (sensitive) : '" & Tmp4 & "' -> '" & Tmp3 & "' in '" & Tmp2 & "' is " & cFileSearchAndReplace(Tmp2, Tmp4, Tmp3, "c:\tmp.tmp", True) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Compare file contents (insensitive) " & Tmp2 & " with " & Tmp & " is " & IIf(cCmpFileContents(Tmp2, Tmp, False) = True, "same", "not same") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
If ((i Mod 2) = 1) Then
j = cFileSearchAndReplace(Tmp2, Tmp3, Tmp4, "", True)
Else
j = cFileSearchAndReplace(Tmp2, Tmp4, Tmp3, "", True)
End If
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFilesSize()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim Size1 As Long
Dim Size2 As Long
Tmp1 = ""
Tmp1 = Tmp1 & "Size of files c:\*.* is " & cFilesSize("c:\*.*") & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.bat is " & cFilesSize("c:\*.bat") & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.sys is " & cFilesSize("c:\*.sys") & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.com is " & cFilesSize("c:\*.com") & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.* on disk is " & cFilesSizeOnDisk("c:\*.*") & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.bat on disk is " & cFilesSizeOnDisk("c:\*.bat") & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.sys on disk is " & cFilesSizeOnDisk("c:\*.sys") & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.com on disk is " & cFilesSizeOnDisk("c:\*.com") & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Slack of files c:\*.* on disk is " & cFilesSlack("c:\*.*", Size1, Size2) & " %" & Chr$(13)
Tmp1 = Tmp1 & "Slack of files c:\*.bat on disk is " & cFilesSlack("c:\*.bat", Size1, Size2) & " %" & Chr$(13)
Tmp1 = Tmp1 & "Slack of files c:\*.sys on disk is " & cFilesSlack("c:\*.sys", Size1, Size2) & " %" & Chr$(13)
Tmp1 = Tmp1 & "Slack of files c:\*.com on disk is " & cFilesSlack("c:\*.com", Size1, Size2) & " %" & Chr$(13)
cStartBasisTimer
For i = 1 To 10
k = cFilesSize("c:\*.*")
Next i
Tmp1 = Tmp1 & "speed for " & 10 & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileStatictics()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim Tmp4 As String
Dim i As Integer
Dim j As Long
Dim nL As Long
Dim nW As Long
Dim nC As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp1 = Tmp1 & "File statictics for '" & Tmp & "' is " & cFileStatistics(Tmp, nL, nW, nC) & Chr$(13)
Tmp1 = Tmp1 & "number of lines : " & nL & Chr$(13)
Tmp1 = Tmp1 & "number of words : " & nW & Chr$(13)
Tmp1 = Tmp1 & "number of chars : " & nC & Chr$(13) & Chr$(13)
Tmp = "c:\config.sys"
Tmp1 = Tmp1 & "File statictics for '" & Tmp & "' is " & cFileStatistics(Tmp, nL, nW, nC) & Chr$(13)
Tmp1 = Tmp1 & "number of lines : " & nL & Chr$(13)
Tmp1 = Tmp1 & "number of words : " & nW & Chr$(13)
Tmp1 = Tmp1 & "number of chars : " & nC & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFileStatistics(Tmp, nL, nW, nC)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileStatistic()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Tmp1 = "File drive for t2win-16.dll is " & cFileDrive("t2win-16.dll") & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File last time modified for t2win-16.dll is " & cFileLastTimeModified("t2win-16.dll") & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File last date modified for t2win-16.dll is " & cFileLastDateModified("t2win-16.dll") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Tmp = cFileDrive("t2win-16.dll")
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileToX()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "c:\autoexec.bat"
Tmp2 = "c:\autoexec.lwr"
Tmp3 = "c:\autoexec.upr"
Tmp1 = Tmp1 & "File to lower '" & Tmp & "' to '" & Tmp2 & "' is " & cFileToLower(Tmp, Tmp2) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "File to upper '" & Tmp & "' to '" & Tmp3 & "' is " & cFileToUpper(Tmp, Tmp3) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFileToLower(Tmp, Tmp2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestFileVersion()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim status As Integer
Tmp = cGetSystemDirectory() & "\krnl386.exe"
Tmp1 = Tmp1 & "File Version for '" & Tmp & "' is " & Chr$(13)
For i = VER_VERSION_PRODUCT To VER_PRODUCT_VERSION
Tmp1 = Tmp1 & " " & i & " = " & cGetFileVersion(Tmp, i) & Chr$(13)
Next i
Tmp = cGetSystemDirectory() & "\t2win-16.dll"
Tmp1 = Tmp1 & "File Version for '" & Tmp & "' is " & Chr$(13)
For i = VER_VERSION_PRODUCT To VER_PRODUCT_VERSION
Tmp1 = Tmp1 & " " & i & " = " & cGetFileVersion(Tmp, i) & Chr$(13)
Next i
cStartBasisTimer
For i = 1 To ItemFile
Tmp = cGetFileVersion(Tmp, -1)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFileVersionInfo()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim status As Integer
Dim FILEVERSIONINFO As tagFILEVERSIONINFO
Tmp = cGetSystemDirectory() & "\krnl386.exe"
Tmp1 = Tmp1 & "File Version Information for '" & Tmp & "' is " & Chr$(13)
status = cGetFileVersionInfo(Tmp, FILEVERSIONINFO)
Tmp1 = Tmp1 & " VersionProduct = " & FILEVERSIONINFO.VersionProduct & Chr$(13)
Tmp1 = Tmp1 & " FileDescription = " & FILEVERSIONINFO.FileDescription & Chr$(13)
Tmp1 = Tmp1 & " FileVersion = " & FILEVERSIONINFO.FileVersion & Chr$(13)
Tmp1 = Tmp1 & " InternalName = " & FILEVERSIONINFO.InternalName & Chr$(13)
Tmp1 = Tmp1 & " LegalCopyright = " & FILEVERSIONINFO.LegalCopyright & Chr$(13)
Tmp1 = Tmp1 & " LegalTrademarks = " & FILEVERSIONINFO.LegalTrademarks & Chr$(13)
Tmp1 = Tmp1 & " Comments = " & FILEVERSIONINFO.Comments & Chr$(13)
Tmp1 = Tmp1 & " ProductName = " & FILEVERSIONINFO.ProductName & Chr$(13)
Tmp1 = Tmp1 & " ProductVersion = " & FILEVERSIONINFO.ProductVersion & Chr$(13) & Chr$(13)
Tmp = cGetSystemDirectory() & "\t2win-16.dll"
Tmp1 = Tmp1 & "File Version Information for '" & Tmp & "' is " & Chr$(13)
status = cGetFileVersionInfo(Tmp, FILEVERSIONINFO)
Tmp1 = Tmp1 & " VersionProduct = " & FILEVERSIONINFO.VersionProduct & Chr$(13)
Tmp1 = Tmp1 & " FileDescription = " & FILEVERSIONINFO.FileDescription & Chr$(13)
Tmp1 = Tmp1 & " FileVersion = " & FILEVERSIONINFO.FileVersion & Chr$(13)
Tmp1 = Tmp1 & " InternalName = " & FILEVERSIONINFO.InternalName & Chr$(13)
Tmp1 = Tmp1 & " LegalCopyright = " & FILEVERSIONINFO.LegalCopyright & Chr$(13)
Tmp1 = Tmp1 & " LegalTrademarks = " & FILEVERSIONINFO.LegalTrademarks & Chr$(13)
Tmp1 = Tmp1 & " Comments = " & FILEVERSIONINFO.Comments & Chr$(13)
Tmp1 = Tmp1 & " ProductName = " & FILEVERSIONINFO.ProductName & Chr$(13)
Tmp1 = Tmp1 & " ProductVersion = " & FILEVERSIONINFO.ProductVersion & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
status = cGetFileVersionInfo(Tmp, FILEVERSIONINFO)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFill()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Fill of [" & Tmp & "] with [*=] is "
Call cFill(Tmp, "*=")
Tmp1 = Title & Tmp & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cFill(Tmp, "=*")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFillI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Double
ReDim array(ItemMean) As Integer
Randomize Timer
For i = LBound(array) To UBound(array)
array(i) = 0
List1.AddItem "" & array(i)
Next i
j = cFillI(array(), 1)
For i = LBound(array) To UBound(array)
List2.AddItem "" & array(i)
Next i
Tmp1 = Tmp1 & "Fill 1 to element 1 of an integer array is : " & array(1) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Fill 1 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFillI(array(), 1)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFillIncrI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Double
ReDim array(ItemMean) As Integer
Randomize Timer
For i = LBound(array) To UBound(array)
array(i) = 0
List1.AddItem "" & array(i)
Next i
j = cFillIncrI(array(), -2, 3)
For i = LBound(array) To UBound(array)
List2.AddItem "" & array(i)
Next i
Tmp1 = Tmp1 & "Fill -2 by increment 3 to element 1 of an integer array is : " & array(1) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Fill -2 by increment 3 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFillIncrI(array(), 1, 3)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFilterBlocks()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Filter blocks between '/' and '/' in [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Title & cFilterBlocks(Tmp, "//") & Chr$(13) & Chr$(13)
Title = "Filter blocks between 'B' and 'I' in [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & Title & cFilterBlocks(Tmp, "BI") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cFilterBlocks(Tmp, "//")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFilterChars()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Filter 'B','/' in [" & Tmp & "] is "
Tmp1 = Title & cFilterChars(Tmp, "B/") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cFilterChars(Tmp, "B/")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFindBitReset()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Tmp1 = "The following bits on '" & Tmp & "' are not Set (False) " & Chr$(13) & Chr$(13)
j = True
Do
j = cFindBitReset(Tmp, j)
If (j <> True) Then Tmp1 = Tmp1 & j & ", "
Loop Until (j = True)
Tmp1 = Left$(Tmp1, Len(Tmp1) - 1)
Tmp1 = Tmp1 & Chr$(13) & Chr$(13)
j = 0
cStartBasisTimer
For i = 1 To Item
j = cFindBitReset(Tmp, j)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFindBitSet()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Tmp1 = "The following bits on '" & Tmp & "' are Set (True) " & Chr$(13) & Chr$(13)
j = True
Do
j = cFindBitSet(Tmp, j)
If (j <> True) Then Tmp1 = Tmp1 & j & ", "
Loop Until (j = True)
Tmp1 = Left$(Tmp1, Len(Tmp1) - 1)
Tmp1 = Tmp1 & Chr$(13) & Chr$(13)
j = 0
cStartBasisTimer
For i = 1 To Item
j = cFindBitSet(Tmp, j)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFindFileInEnv()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
j = cFindFileInEnv("win.com", "windir")
Tmp1 = "The file 'win.com' is " & IIf(j, "found", "not found") & " in the WINDIR" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFindFileInEnv("win.com", "windir")
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFindFileInPath()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
j = cFindFileInPath("win.com")
Tmp1 = "The file 'win.com' is " & IIf(j, "found", "not found") & " in the PATH" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cFindFileInPath("win.com")
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFloppyInfo()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim nHds As Integer
Dim nCyls As Integer
Dim nSecs As Integer
Tmp1 = ""
For i = 1 To 3
j = cFloppyInfo(Chr$(64 + i), nHds, nCyls, nSecs)
Tmp1 = Tmp1 & "'" & Chr$(64 + i) & ":' is " & j & " (" & nHds & "," & nCyls & "," & nSecs & ")" & Chr$(13)
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cFloppyInfo("A", nHds, nCyls, nSecs)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFraction()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim v As Double
Dim N As Double
Dim p As Double
Dim q As Double
Dim e As Integer
Tmp1 = "Determining fraction part (numerator/denominator) for the following value " & Chr$(13) & Chr$(13)
N = 0.75
v = cFraction(N, p, q)
Tmp1 = Tmp1 & N & " is " & p & " / " & q & Chr$(13)
Tmp1 = Tmp1 & " value is " & v & Chr$(13) & Chr$(13)
N = 4.12
v = cFraction(N, p, q)
Tmp1 = Tmp1 & N & " is " & p & " / " & q & Chr$(13)
Tmp1 = Tmp1 & " value is " & v & Chr$(13) & Chr$(13)
N = 365.25
v = cFraction(N, p, q)
Tmp1 = Tmp1 & N & " is " & p & " / " & q & Chr$(13)
Tmp1 = Tmp1 & " value is " & v & Chr$(13) & Chr$(13)
N = 3.14
v = cFraction(N, p, q)
Tmp1 = Tmp1 & N & " is " & p & " / " & q & Chr$(13)
Tmp1 = Tmp1 & " value is " & v & Chr$(13) & Chr$(13)
N = 3.14159
v = cFraction(N, p, q)
Tmp1 = Tmp1 & N & " is " & p & " / " & q & Chr$(13)
Tmp1 = Tmp1 & " value is " & v & Chr$(13) & Chr$(13)
N = 3.14159265
v = cFraction(N, p, q)
Tmp1 = Tmp1 & N & " is " & p & " / " & q & Chr$(13)
Tmp1 = Tmp1 & " value is " & v & Chr$(13) & Chr$(13)
N = 0.9999999
v = cFraction(N, p, q)
Tmp1 = Tmp1 & N & " is " & p & " / " & q & Chr$(13)
Tmp1 = Tmp1 & " value is " & v & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
v = cFraction(N, p, q)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestFullPath()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "C:\AUTOEXEC.BAT"
Tmp1 = Tmp1 & "Full Path of " & Tmp & " is " & cFullPath(Tmp) & Chr$(13) & Chr$(13)
Tmp = cGetSystemDirectory() & "\t2win-16.dll"
Tmp1 = Tmp1 & "Full Path of " & Tmp & " is " & cFullPath(Tmp) & Chr$(13) & Chr$(13)
Tmp = cFilesInDirectory(cGetDefaultCurrentDir() + "\*.*", True)
Tmp1 = Tmp1 & "Full Path of " & Tmp & " is " & cFullPath(Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp = cFullPath(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestGetBit()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "bit 0,7,3 of [" & Tmp & "] is "
Tmp1 = Title & cGetBit(Tmp, 0) & " " & cGetBit(Tmp, 7) & " " & cGetBit(Tmp, 3) & " " & Chr$(13) & Chr$(13)
Title = "bit 23,30,38 of [" & Tmp & "] is "
Tmp1 = Tmp1 & Title & cGetBit(Tmp, 23) & " " & cGetBit(Tmp, 30) & " " & cGetBit(Tmp, 38) & " " & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cGetBit(Tmp, i)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetBlock()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "The 2,4,1 of 2 chars of [" & Tmp & "] are "
Tmp = Text1.Text
Tmp1 = Title & "2:" & cGetBlock(Tmp, 2, 2) & " | 4:" & cGetBlock(Tmp, 4, 2) & " | 1:" & cGetBlock(Tmp, 1, 2) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGetBlock(Tmp, 1, 2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetCurrentDrive()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = cGetCurrentDrive()
Tmp1 = Tmp & " is the current drive" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGetCurrentDrive()
If (Tmp <> Tmp2) Then Beep
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetDateSeparator()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = cGetDateSeparator()
Tmp1 = "The following char '" & Tmp & "' is the date separator" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGetDateSeparator()
If (Tmp <> Tmp2) Then Beep
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetDefaultCurrentDir()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = cGetDefaultCurrentDir()
Tmp1 = Tmp & " is the current dir on the default drive" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGetDefaultCurrentDir()
If (Tmp <> Tmp2) Then Beep
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetDiskFree()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim ErrCode As Integer
Tmp1 = ""
For i = 1 To 26
k = cGetDiskFree(Chr$(64 + i))
If (k <> True) Then
Tmp1 = Tmp1 & "DiskFree for '" & Chr$(64 + i) & ":' is " & k & Chr$(13)
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
k = cGetDiskFree("C")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetDiskSpace()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim ErrCode As Integer
Tmp1 = ""
For i = 1 To 26
k = cGetDiskSpace(Chr$(64 + i))
If (k <> True) Then
Tmp1 = Tmp1 & "DiskSpace for '" & Chr$(64 + i) & ":' is " & k & Chr$(13)
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
k = cGetDiskSpace("C")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetDiskUsed()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim ErrCode As Integer
Tmp1 = ""
For i = 1 To 26
k = cGetDiskUsed(Chr$(64 + i))
If (k <> True) Then
Tmp1 = Tmp1 & "DiskUsed for '" & Chr$(64 + i) & ":' is " & k & Chr$(13)
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
k = cGetDiskUsed("C")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetDriveCurrentDir()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = ""
For i = 1 To 26
Tmp = cGetDriveCurrentDir(Chr$(64 + i))
If (Tmp <> "") Then
Tmp1 = Tmp1 & "The current directory in '" & Chr$(64 + i) & ":' is " & Tmp & Chr$(13)
Else
If (i = 1) Then Tmp1 = Tmp1 & "drive A: is missing" & Chr$(13)
If (i = 2) Then Tmp1 = Tmp1 & "drive B: is missing" & Chr$(13)
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGetDriveCurrentDir("C")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetFullnameInEnv()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = cGetFullNameInEnv("win.com", "windir")
Tmp1 = "Full path for 'win.com' in 'windir' is " & Tmp & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Tmp2 = cGetFullNameInEnv("win.com", "windir")
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetFullnameInPath()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = cGetFullNameInPath("win.com")
Tmp1 = "Full path for 'win.com' is " & Tmp & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Tmp2 = cGetFullNameInPath("win.com")
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetIn()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "The 2,4,1 blocks of [" & Tmp & "] are "
Tmp = Text1.Text
Tmp1 = Title & "2:" & cGetIn(Tmp, "/", 2) & " | 4:" & cGetIn(Tmp, "/", 4) & " | 1:" & cGetIn(Tmp, "/", 1) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGetIn(Tmp, "/", 2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetInR()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Tmp1 = Tmp1 + "GetInR" & Chr$(13)
Tmp1 = Tmp1 + "The 2,4,1 blocks from the right of [" & Tmp & "] are "
Tmp1 = Tmp1 & "2:" & cGetInR(Tmp, "/", 2) & " | 4:" & cGetInR(Tmp, "/", 4) & " | 1:" & cGetInR(Tmp, "/", 1) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 + "GetInPart" & Chr$(13)
Tmp1 = Tmp1 + "The first and the second part from the left of [" & Tmp & "] are " & Chr$(13)
Tmp1 = Tmp1 & cGetInPart(Tmp, "/", True) & " | " & cGetInPart(Tmp, "/", False) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 + "GetInPartR" & Chr$(13)
Tmp1 = Tmp1 + "The first and the second part from the right of [" & Tmp & "] are " & Chr$(13)
Tmp1 = Tmp1 & cGetInPartR(Tmp, "/", True) & " | " & cGetInPartR(Tmp, "/", False) & Chr$(13) & Chr$(13)
Tmp = UCase$("c:\vberr.hnd\source.mak\vbtrcprf.mak")
Tmp1 = Tmp1 + "GetInPart" & Chr$(13)
Tmp1 = Tmp1 + "The first and the second part from the left of [" & Tmp & "] are " & Chr$(13)
Tmp1 = Tmp1 & cGetInPart(Tmp, ".", True) & " | " & cGetInPart(Tmp, ".", False) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 + "GetInPartR" & Chr$(13)
Tmp1 = Tmp1 + "The first and the second part from the right of [" & Tmp & "] are " & Chr$(13)
Tmp1 = Tmp1 & cGetInPartR(Tmp, ".", True) & " | " & cGetInPartR(Tmp, ".", False) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGetInR(Tmp, "/", 2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetNetConnection()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim ErrCode As Integer
Tmp1 = ""
For i = 1 To 26
Tmp = cGetNetConnection(Chr$(64 + i) & ":", ErrCode)
If (ErrCode = True) Then
Tmp1 = Tmp1 & "'" & Chr$(64 + i) & ":' is " & Tmp & Chr$(13)
End If
Next i
For i = 1 To 3
Tmp = cGetNetConnection("LPT" & i & ":", ErrCode)
If (ErrCode = True) Then
Tmp1 = Tmp1 & "'LPT" & i & ":' is " & Tmp & Chr$(13)
End If
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Tmp = cGetNetConnection("C", ErrCode)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetSystemDirectory()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = cGetSystemDirectory()
Tmp1 = Tmp & " is the system directory for Windows" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGetSystemDirectory()
If (Tmp <> Tmp2) Then Beep
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetTimeSeparator()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = cGetTimeSeparator()
Tmp1 = "The following char '" & Tmp & "' is the time separator" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGetTimeSeparator()
If (Tmp <> Tmp2) Then Beep
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGetWindowsDirectory()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = cGetWindowsDirectory()
Tmp1 = Tmp & " is the directory for Windows" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGetWindowsDirectory()
If (Tmp <> Tmp2) Then Beep
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestGiveBitPalindrome()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Title = "The followings chars are Bit Palindrome : " & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & Title & "chr(0) and " & cBlockCharFromRight(cGiveBitPalindrome(), 1) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cGiveBitPalindrome()
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestHideAllEditForm()
Dim N As Integer
Dim Tmp As String
If (cHideAllEditForm() = True) Then
Tmp = "HideAllEditForm SUCCESS"
Else
Tmp = "HideAllEditForm FAIL"
End If
Tmp = Tmp & Chr$(13) & "Waiting 2 seconds" & Chr$(13)
Label3.Caption = Tmp
DoEvents
N = cSleep(2000)
If (cUnHideAllEditForm() = True) Then
Tmp = Tmp & "UnHideAllEditForm SUCCESS"
Else
Tmp = Tmp & "UnHideAllEditForm FAIL"
End If
Label3.Caption = Tmp
End Sub
Private Sub TestHideDebugForm()
Dim N As Integer
Dim Tmp As String
If (cHideDebugForm() = True) Then
Tmp = "HideDebugForm SUCCESS"
Else
Tmp = "HideDebugForm FAIL"
End If
Tmp = Tmp & Chr$(13) & "Waiting 2 seconds" & Chr$(13)
Label3.Caption = Tmp
DoEvents
N = cSleep(2000)
If (cUnHideDebugForm() = True) Then
Tmp = Tmp & "UnHideDebugForm SUCCESS"
Else
Tmp = Tmp & "UnHideDebugForm FAIL"
End If
Label3.Caption = Tmp
End Sub
Private Sub TestHMAL(Management As Integer)
Dim Tmp As String
Dim ErrCode As Integer
Dim HMA As tagHMA
HMA.nType = DA_LONG
HMA.nIsTyped = False
HMA.nRows = 100
HMA.nCols = 100
HMA.nSheets = 2
ErrCode = cHMACreate(HMA)
Tmp = Tmp & "ErrCode = " & ErrCode & Chr$(13) & Chr$(13)
If (ErrCode = True) Then
Tmp = Tmp & "HMA.daSize = " & HMA.daSize & Chr$(13)
Tmp = Tmp & "HMA.nType = " & HMA.nType & Chr$(13)
Tmp = Tmp & "HMA.nIsTyped = " & HMA.nIsTyped & Chr$(13)
Tmp = Tmp & "HMA.nRows = " & HMA.nRows & Chr$(13)
Tmp = Tmp & "HMA.nCols = " & HMA.nCols & Chr$(13)
Tmp = Tmp & "HMA.nSheets = " & HMA.nSheets & Chr$(13)
Tmp = Tmp & "HMA.rHandle = " & HMA.rHandle & Chr$(13)
Tmp = Tmp & "HMA.rElementSize = " & HMA.rElementSize & Chr$(13)
Tmp = Tmp & "HMA.rMemorySize = " & HMA.rMemorySize & Chr$(13)
Tmp = Tmp & "HMA.rParts = " & HMA.rParts & Chr$(13)
Tmp = Tmp & "HMA.rRemain = " & HMA.rRemain & Chr$(13)
Tmp = Tmp & "HMA.rSheetSize = " & HMA.rSheetSize & Chr$(13) & Chr$(13)
Call cHMAPut(HMA, 1, 1, 1, 12345)
Call cHMAPut(HMA, HMA.nRows, HMA.nCols, 1, 98765)
Call cHMAPut(HMA, 1, HMA.nCols, 2, 34567890)
Call cHMAPut(HMA, HMA.nRows, 1, 2, 123456789)
Tmp = Tmp & "R:1 , C:1 , D:1, Value : " & cHMAGet(HMA, 1, 1, 1) & Chr$(13)
Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, Value : " & cHMAGet(HMA, HMA.nRows, HMA.nCols, 1) & Chr$(13)
Tmp = Tmp & "R:1 , C:" & HMA.nCols & ", D:2, Value : " & cHMAGet(HMA, 1, HMA.nCols, 2) & Chr$(13)
Tmp = Tmp & "R:" & HMA.nRows & ", C:1 , D:2, Value : " & cHMAGet(HMA, HMA.nRows, 1, 2) & Chr$(13) & Chr$(13)
If (Management > 0) Then
Select Case Management
Case 1 'clear all
ErrCode = cHMAClear(HMA)
Case 2 'clear sheet 2
ErrCode = cHMAClearSheet(HMA, 2)
Case 3 'clear last row
ErrCode = cHMAClearRow(HMA, HMA.nRows, 1)
Case 4 'clear last col
ErrCode = cHMAClearCol(HMA, HMA.nCols, 1)
Case 5 'clear last row in all sheets
ErrCode = cHMAClearRow(HMA, HMA.nRows, -1)
Case 6 'clear last col in all sheets
ErrCode = cHMAClearCol(HMA, HMA.nCols, -1)
End Select
Tmp = Tmp & "R:1 , C:1 , D:1, Value : " & cHMAGet(HMA, 1, 1, 1) & Chr$(13)
Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, Value : " & cHMAGet(HMA, HMA.nRows, HMA.nCols, 1) & Chr$(13)
Tmp = Tmp & "R:1 , C:" & HMA.nCols & ", D:2, Value : " & cHMAGet(HMA, 1, HMA.nCols, 2) & Chr$(13)
Tmp = Tmp & "R:" & HMA.nRows & ", C:1 , D:2, Value : " & cHMAGet(HMA, HMA.nRows, 1, 2) & Chr$(13)
End If
End If
ErrCode = cHMAFree(HMA)
Label3.Caption = Tmp
End Sub
Private Sub TestHMAStr(Management As Integer)
Dim Tmp As String
Dim ErrCode As Integer
Dim HMA As tagHMA
HMA.nType = 50
HMA.nIsTyped = False
HMA.nRows = 100
HMA.nCols = 100
HMA.nSheets = 2
ErrCode = cHMACreate(HMA)
Tmp = Tmp & "ErrCode = " & ErrCode & Chr$(13) & Chr$(13)
If (ErrCode = True) Then
Tmp = Tmp & "HMA.daSize = " & HMA.daSize & Chr$(13)
Tmp = Tmp & "HMA.nType = " & HMA.nType & Chr$(13)
Tmp = Tmp & "HMA.nIsTyped = " & HMA.nIsTyped & Chr$(13)
Tmp = Tmp & "HMA.nRows = " & HMA.nRows & Chr$(13)
Tmp = Tmp & "HMA.nCols = " & HMA.nCols & Chr$(13)
Tmp = Tmp & "HMA.nSheets = " & HMA.nSheets & Chr$(13)
Tmp = Tmp & "HMA.rHandle = " & HMA.rHandle & Chr$(13)
Tmp = Tmp & "HMA.rElementSize = " & HMA.rElementSize & Chr$(13)
Tmp = Tmp & "HMA.rMemorySize = " & HMA.rMemorySize & Chr$(13)
Tmp = Tmp & "HMA.rParts = " & HMA.rParts & Chr$(13)
Tmp = Tmp & "HMA.rRemain = " & HMA.rRemain & Chr$(13)
Tmp = Tmp & "HMA.rSheetSize = " & HMA.rSheetSize & Chr$(13) & Chr$(13)
Call cHMAPut(HMA, 1, 1, 1, "D:1, ABCDEFGHIJ")
Call cHMAPut(HMA, HMA.nRows, HMA.nCols, 1, "D:1, oprqstuvwxyz")
Call cHMAPut(HMA, 1, HMA.nCols, 2, "D:2, 0987654321")
Call cHMAPut(HMA, HMA.nRows, 1, 2, "D:2, 12345ABCDE")
Tmp = Tmp & "R:1 , C:1 , D:1, Value : " & cHMAGet(HMA, 1, 1, 1) & Chr$(13)
Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, Value : " & cHMAGet(HMA, HMA.nRows, HMA.nCols, 1) & Chr$(13)
Tmp = Tmp & "R:1 , C:" & HMA.nCols & ", D:2, Value : " & cHMAGet(HMA, 1, HMA.nCols, 2) & Chr$(13)
Tmp = Tmp & "R:" & HMA.nRows & ", C:1 , D:2, Value : " & cHMAGet(HMA, HMA.nRows, 1, 2) & Chr$(13) & Chr$(13)
If (Management > 0) Then
Select Case Management
Case 1 'clear all
ErrCode = cHMAClear(HMA)
Case 2 'clear sheet 2
ErrCode = cHMAClearSheet(HMA, 2)
Case 3 'clear last row
ErrCode = cHMAClearRow(HMA, HMA.nRows, 1)
Case 4 'clear last col
ErrCode = cHMAClearCol(HMA, HMA.nCols, 1)
Case 5 'clear last row in all sheets
ErrCode = cHMAClearRow(HMA, HMA.nRows, -1)
Case 6 'clear last col in all sheets
ErrCode = cHMAClearCol(HMA, HMA.nCols, -1)
End Select
Tmp = Tmp & "R:1 , C:1 , D:1, Value : " & cHMAGet(HMA, 1, 1, 1) & Chr$(13)
Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, Value : " & cHMAGet(HMA, HMA.nRows, HMA.nCols, 1) & Chr$(13)
Tmp = Tmp & "R:1 , C:" & HMA.nCols & ", D:2, Value : " & cHMAGet(HMA, 1, HMA.nCols, 2) & Chr$(13)
Tmp = Tmp & "R:" & HMA.nRows & ", C:1 , D:2, Value : " & cHMAGet(HMA, HMA.nRows, 1, 2) & Chr$(13)
End If
End If
ErrCode = cHMAFree(HMA)
Label3.Caption = Tmp
End Sub
Private Sub TestHMAType(Management As Integer)
Dim Tmp As String
Dim ErrCode As Integer
Dim HMA As tagHMA
Dim TE As tagTASKENTRY
HMA.nType = Len(TE)
HMA.nIsTyped = True
HMA.nRows = 100
HMA.nCols = 100
HMA.nSheets = 2
ErrCode = cHMACreate(HMA)
Tmp = Tmp & "ErrCode = " & ErrCode & Chr$(13) & Chr$(13)
If (ErrCode = True) Then
Tmp = Tmp & "HMA.daSize = " & HMA.daSize & Chr$(13)
Tmp = Tmp & "HMA.nType = " & HMA.nType & Chr$(13)
Tmp = Tmp & "HMA.nIsTyped = " & HMA.nIsTyped & Chr$(13)
Tmp = Tmp & "HMA.nRows = " & HMA.nRows & Chr$(13)
Tmp = Tmp & "HMA.nCols = " & HMA.nCols & Chr$(13)
Tmp = Tmp & "HMA.nSheets = " & HMA.nSheets & Chr$(13)
Tmp = Tmp & "HMA.rHandle = " & HMA.rHandle & Chr$(13)
Tmp = Tmp & "HMA.rElementSize = " & HMA.rElementSize & Chr$(13)
Tmp = Tmp & "HMA.rMemorySize = " & HMA.rMemorySize & Chr$(13)
Tmp = Tmp & "HMA.rParts = " & HMA.rParts & Chr$(13)
Tmp = Tmp & "HMA.rRemain = " & HMA.rRemain & Chr$(13)
Tmp = Tmp & "HMA.rSheetSize = " & HMA.rSheetSize & Chr$(13) & Chr$(13)
ErrCode = cTasks(TE, True)
Call cHMAPutType(HMA, 1, 1, 1, TE)
ErrCode = cTasks(TE, False)
Call cHMAPutType(HMA, HMA.nRows, HMA.nCols, 1, TE)
ErrCode = cTasks(TE, False)
Call cHMAPutType(HMA, 1, HMA.nCols, 2, TE)
ErrCode = cTasks(TE, False)
Call cHMAPutType(HMA, HMA.nRows, 1, 2, TE)
Call cHMAGetType(HMA, 1, 1, 1, TE)
Tmp = Tmp & "R:1 , C:1 , D:1, TE.szModule : " & cCompress(TE.szModule) & Chr$(13)
Call cHMAGetType(HMA, HMA.nRows, HMA.nCols, 1, TE)
Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, TE.szModule : " & cCompress(TE.szModule) & Chr$(13)
Call cHMAGetType(HMA, 1, HMA.nCols, 2, TE)
Tmp = Tmp & "R:1 , C:" & HMA.nCols & ", D:2, TE.szModule : " & cCompress(TE.szModule) & Chr$(13)
Call cHMAGetType(HMA, HMA.nRows, 1, 2, TE)
Tmp = Tmp & "R:" & HMA.nRows & ", C:1 , D:2, TE.szModule : " & cCompress(TE.szModule) & Chr$(13) & Chr$(13)
If (Management > 0) Then
Select Case Management
Case 1 'clear all
ErrCode = cHMAClear(HMA)
Case 2 'clear sheet 2
ErrCode = cHMAClearSheet(HMA, 2)
Case 3 'clear last row
ErrCode = cHMAClearRow(HMA, HMA.nRows, 1)
Case 4 'clear last col
ErrCode = cHMAClearCol(HMA, HMA.nCols, 1)
Case 5 'clear last row in all sheets
ErrCode = cHMAClearRow(HMA, HMA.nRows, -1)
Case 6 'clear last col in all sheets
ErrCode = cHMAClearCol(HMA, HMA.nCols, -1)
End Select
Call cHMAGetType(HMA, 1, 1, 1, TE)
Tmp = Tmp & "R:1 , C:1 , D:1, TE.szModule : " & cCompress(TE.szModule) & Chr$(13)
Call cHMAGetType(HMA, HMA.nRows, HMA.nCols, 1, TE)
Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, TE.szModule : " & cCompress(TE.szModule) & Chr$(13)
Call cHMAGetType(HMA, 1, HMA.nCols, 2, TE)
Tmp = Tmp & "R:1 , C:" & HMA.nCols & ", D:2, TE.szModule : " & cCompress(TE.szModule) & Chr$(13)
Call cHMAGetType(HMA, HMA.nRows, 1, 2, TE)
Tmp = Tmp & "R:" & HMA.nRows & ", C:1 , D:2, TE.szModule : " & cCompress(TE.szModule) & Chr$(13)
End If
End If
ErrCode = cHMAFree(HMA)
Label3.Caption = Tmp
End Sub
Private Sub TestHourTo()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "The time 10:00 is " & cHourTo("10:00") & " minutes" & Chr$(13)
Tmp1 = Tmp1 & "The time 23:58 is " & cHourTo("23:58") & " minutes" & Chr$(13)
Tmp1 = Tmp1 & "The time 7:36 is " & cHourTo("7:36") & " minutes" & Chr$(13)
Tmp1 = Tmp1 & "The time :24 is " & cHourTo(":24") & " minutes" & Chr$(13)
Tmp1 = Tmp1 & "The time :4 is " & cHourTo(":4") & " minutes" & Chr$(13)
Tmp1 = Tmp1 & "The time : is " & cHourTo(":") & " minutes" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The time -10:00 is " & cHourTo("-10:00") & " minutes" & Chr$(13)
Tmp1 = Tmp1 & "The time -23:58 is " & cHourTo("-23:58") & " minutes" & Chr$(13)
Tmp1 = Tmp1 & "The time -7:36 is " & cHourTo("-7:36") & " minutes" & Chr$(13)
Tmp1 = Tmp1 & "The time -:24 is " & cHourTo("-:24") & " minutes" & Chr$(13)
Tmp1 = Tmp1 & "The time -:4 is " & cHourTo("-:4") & " minutes" & Chr$(13)
Tmp1 = Tmp1 & "The time -: is " & cHourTo("-:") & " minutes" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cHourTo("23:59")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestInpBox()
Dim i As Integer
Dim N As Integer
Dim Tmp As String
Dim Tmp1 As String
Tmp = "'T2WIN-16'" & Chr$(13) & Chr$(13)
Tmp = Tmp & " is a powerfull data link library for using with Visual Basic 3.0 for Windows." & Chr$(13)
Tmp = Tmp & "It looks very better than the standard message box." & Chr$(13)
Tmp = Tmp & "All push buttons are displayed in French." & Chr$(13)
Tmp = Tmp & "The system menu is also in French."
Tmp1 = cLngInpBox(LNG_FRENCH, Tmp, "Input Box in French", "" & Text1.Text)
Tmp1 = InputBox$("This is a standard input box", "VB INPUT BOX", "" & Text1.Text)
End Sub
Private Sub TestInsertBlocks()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "A~BC~DEF~GHIJ~"
Title = "Insert 'a','bc','def','ghij' into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Title & cInsertBlocks(Tmp, "a~bc~def~ghij") & Chr$(13) & Chr$(13)
Title = "Insert '' into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & Title & cInsertBlocks(Tmp, "") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cInsertBlocks(Tmp, "a")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestInsertBlocksBy()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Insert 'a','bc','def','ghij' into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Title & cInsertBlocksBy(Tmp, "a/bc/def/ghij", "/") & Chr$(13) & Chr$(13)
Title = "Insert '' into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & Title & cInsertBlocksBy(Tmp, "", "/") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cInsertBlocksBy(Tmp, "a/bc/def/ghij", "/")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestInsertChars()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Insert 'a' from 7 char into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Title & cInsertChars(Tmp, 7, "a") & Chr$(13) & Chr$(13)
Title = "Insert '10$' from 2 char into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & Title & cInsertChars(Tmp, 2, "10$") & Chr$(13) & Chr$(13)
Title = "Insert '@' from 21 char into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & Title & cInsertChars(Tmp, 21, "@") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cInsertChars(Tmp, 1, "a")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestIntoBalance()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
j = 1234
Title = "Convert minutes into balance : " & Chr$(13) & Chr$(13)
Tmp1 = Title & Chr$(13)
For i = 0 To 11
Tmp1 = Tmp1 & (j + i) & " { " & cIntoBalanceFill(j + i) & " }" & Chr$(9) & Chr$(9)
Tmp1 = Tmp1 & "{ " & cIntoBalance(j + i) & " }" & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cIntoBalanceFill(i)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestIntoFixHour()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
j = 12345
Title = "Convert " & j & " minutes into fixed hour : " & Chr$(13) & Chr$(13)
Tmp1 = Title & Chr$(13)
For i = 0 To 11
Tmp1 = Tmp1 & "{ " & cIntoFixHour(j, i, True, False) & " }" & Chr$(9) & Chr$(9)
Tmp1 = Tmp1 & "{ " & cIntoFixHour(j, i, False, False) & " }" & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cIntoFixHour(12345, 8, True, False)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestIntoHour()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
j = 1234
Title = "Convert minutes into hour : " & Chr$(13) & Chr$(13)
Tmp1 = Title & Chr$(13)
For i = 0 To 11
Tmp1 = Tmp1 & (j + i) & " { " & cIntoHour(j + i) & " }" & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cIntoHour(i)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestIntoVarHour()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Title = "Convert minutes into variable hour : " & Chr$(13) & Chr$(13)
Tmp1 = Title & Chr$(13)
For i = 1 To 9
Tmp2 = Tmp2 & (10 - i)
Tmp1 = Tmp1 & Tmp2 & " { " & cIntoVarHour(Val(Tmp2)) & " }" & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cIntoVarHour(123456789)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestIsBitPalindrome()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "[" & Tmp & "] is "
Tmp1 = Title & IIf(cIsPalindrome(Tmp), "a Bit Palindrome", " not a Bit Palindrome") & Chr$(13) & Chr$(13)
For i = 1 To 255
If cIsBitPalindrome(Chr$(i)) Then Tmp2 = Tmp2 + Chr$(i) & "(" & i & ")" & Chr$(9)
Next i
Title = "The followings chars are Bit Palindrome : " & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & Title & Tmp2 & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cIsPalindrome(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestIsFileX()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = cFilesInDirectory("*.*", True)
Title = "[" & Tmp & "] is "
Tmp1 = Title & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsFilenameValid(Tmp), " a good filename", " is not a good filename") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsFileArchive(Tmp), " archive", " not archive") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsFileHidden(Tmp), " hidden", " not hidden") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsFileNormal(Tmp), " normal", " not normal") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsFileReadOnly(Tmp), " read-only", " not read-only") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsFileSubDir(Tmp), " sub-directory", " not sub-directory") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsFileSystem(Tmp), " system", " not system") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsFileVolId(Tmp), " volume-id", " not volume-id") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cIsFileArchive(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestIsPalindrome()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "[" & Tmp & "] is "
Tmp1 = Title & IIf(cIsPalindrome(Tmp), "a Palindrome", " not a Palindrome") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cIsPalindrome(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestIsX()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Tmp1 = "[" & Tmp & "] is " & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsDigit(Tmp), "Digit", " not Digit") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsXdigit(Tmp), "XDigit", " not XDigit") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsAlpha(Tmp), "Alpha", " not Alpha") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsLower(Tmp), "Lower", " not Lower") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsUpper(Tmp), "Upper", " not Upper") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsAlnum(Tmp), "Alnum", " not Alnum") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsUpper(Tmp), "Upper", " not Upper") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsSpace(Tmp), "Space", " not Space") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsPunct(Tmp), "Punct", " not Punct") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsAscii(Tmp), "Ascii", " not Ascii") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsCsym(Tmp), "Csym", " not Csym") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsCsymf(Tmp), "Csymf", " not Csymf") & Chr$(13)
Tmp1 = Tmp1 & IIf(cIsISBN(Tmp), "ISBN", " not ISBN") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cIsDigit(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestKillDir()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
j = cMakeDir("c:\testing")
Tmp1 = "Directory 'TESTING' " & IIf(cKillDir("c:\testing") = True, "deleted", "not deleted") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cKillDir("c:\testing")
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestKillFile()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Close #1
Open "XY~YX~XY.~~~" For Output As #1
Print #1, "this is a test";
Close #1
Tmp1 = "File XY~YX~XY.~~~ " & IIf(cKillFile("XY~YX~XY.~~~") = True, "destroyed", "not destroyed") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cKillFile("XY~YX~XY.~~~")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestKillFiles()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
For i = 1 To 34
Close #1
Open "C:\XY~YX~XY." & i For Output As #1
Print #1, "this is a test";
Close #1
Next i
Tmp1 = "Number of killed Files from 'C:XY~YX~XY.1' to 'C:XY~YX~XY.34' is " & cKillFiles("C:\XY~YX~XY.*") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cKillFiles("C:\XY~YX~XY.~~~")
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestLanguage()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim ErrCode As Integer
ReDim Lng(LNG_FRENCH To LNG_POLISH)
k = Int(Now)
Lng(LNG_FRENCH) = "LNG_FRENCH"
Lng(LNG_DUTCH) = "LNG_DUTCH"
Lng(LNG_GERMAN) = "LNG_GERMAN"
Lng(LNG_ENGLISH) = "LNG_ENGLISH"
Lng(LNG_ITALIAN) = "LNG_ITALIAN"
Lng(LNG_SPANISH) = "LNG_SPANISH"
Lng(LNG_CATALAN) = "LNG_CATALAN"
Lng(LNG_POLISH) = "LNG_POLISH"
Tmp1 = ""
For i = LNG_FRENCH To LNG_POLISH
Tmp1 = Tmp1 + Lng(i) + " : " + cGetLongDay(i, WeekDay(k)) & " " & Day(k) & " " & cGetLongMonth(i, Month(k)) & " " & Year(k) & Chr$(13)
Next i
Tmp1 = Tmp1 + Chr$(13)
For i = LNG_FRENCH To LNG_POLISH
Tmp1 = Tmp1 + Lng(i) + " : " + cGetShortDay(i, WeekDay(k)) & " " & Day(k) & " " & cGetShortMonth(i, Month(k)) & " " & Year(k) & Chr$(13)
Next i
Tmp1 = Tmp1 + Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp = cGetLongMonth(LNG_FRENCH, 12)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestLrc()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Chr$(2) & "0a12721536"
Tmp1 = "Lrc for [" & Tmp & "] is " & cLrc(Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cLrc(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMakeDir()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
j = cKillDir("testing")
Tmp1 = "Directory 'TESTING' " & IIf(cMakeDir("testing") = True, "created", "not created") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cMakeDir("testing")
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMakePath()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim N As Integer
Dim j As Long
Dim SPLITPATH As tagSPLITPATH
Tmp1 = ""
Tmp = cMakePath("c", "tmp", "test", "dat")
Tmp1 = Tmp1 & "Make Path of (c,tmp,test,dat) is '" & Tmp & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Split Path '" & Tmp & "' into four components is :" & Chr$(13) & Chr$(13)
N = cSplitPath(Tmp, SPLITPATH)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDrive & Chr$(13)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDir & Chr$(13)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nName & Chr$(13)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nExt & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp = cMakePath("c", "tmp", "test", "dat")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixAdd()
Dim Tmp1 As String
Dim TmpA As String
Dim TmpB As String
Dim TmpC As String
Dim i As Integer
Dim j As Integer
ReDim ArrayA(1 To 3, 1 To 3) As Double
ReDim ArrayB(1 To 3, 1 To 3) As Double
ReDim ArrayC(1 To 3, 1 To 3) As Double
Randomize Timer
For i = 1 To 3
For j = 1 To 3
ArrayA(i, j) = Int(RandI * Rnd(1))
ArrayB(i, j) = Int(RandI * Rnd(1))
ArrayC(i, j) = 0
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
TmpB = TmpB + Format$(ArrayB(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
TmpB = TmpB + Chr$(13)
Next i
Call cMatrixAdd(3, ArrayA(), ArrayB(), ArrayC())
For i = 1 To 3
For j = 1 To 3
TmpC = TmpC + Format$(ArrayC(i, j), "00000 ")
Next j
TmpC = TmpC + Chr$(13)
Next i
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Second array (B) is " & Chr$(13) & Chr$(13) & TmpB & Chr$(13)
Tmp1 = Tmp1 & "The sum (A) + (B) = (C) is " & Chr$(13) & Chr$(13) & TmpC & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Call cMatrixAdd(3, ArrayA(), ArrayB(), ArrayC())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixCompare()
Dim Tmp1 As String
Dim TmpA As String
Dim TmpC As String
Dim i As Integer
Dim j As Integer
Dim Idem As Integer
ReDim ArrayA(1 To 3, 1 To 3) As Double
ReDim ArrayC(1 To 3, 1 To 3) As Double
Randomize Timer
For i = 1 To 3
For j = 1 To 3
ArrayA(i, j) = Int(RandI * Rnd(1))
ArrayC(i, j) = Int(RandI * Rnd(1))
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
TmpC = TmpC + Format$(ArrayC(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
TmpC = TmpC + Chr$(13)
Next i
Idem = cMatrixCompare(3, ArrayA(), ArrayC())
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Second array (C) is " & Chr$(13) & Chr$(13) & TmpC & Chr$(13)
Tmp1 = Tmp1 & "Compare of (A) = (C) is " & Idem & Chr$(13) & Chr$(13)
TmpA = ""
TmpC = ""
For i = 1 To 3
For j = 1 To 3
ArrayA(i, j) = Int(RandI * Rnd(1))
ArrayC(i, j) = ArrayA(i, j)
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
TmpC = TmpC + Format$(ArrayC(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
TmpC = TmpC + Chr$(13)
Next i
Idem = cMatrixCompare(3, ArrayA(), ArrayC())
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Second array (C) is " & Chr$(13) & Chr$(13) & TmpC & Chr$(13)
Tmp1 = Tmp1 & "Compare of (A) = (C) is " & Idem & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Idem = cMatrixCompare(3, ArrayA(), ArrayC())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixCopy()
Dim Tmp1 As String
Dim TmpA As String
Dim TmpC As String
Dim i As Integer
Dim j As Integer
ReDim ArrayA(1 To 3, 1 To 3) As Double
ReDim ArrayC(1 To 3, 1 To 3) As Double
Randomize Timer
For i = 1 To 3
For j = 1 To 3
ArrayA(i, j) = Int(RandI * Rnd(1))
ArrayC(i, j) = 0
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
Next i
Call cMatrixCopy(3, ArrayA(), ArrayC())
For i = 1 To 3
For j = 1 To 3
TmpC = TmpC + Format$(ArrayC(i, j), "00000 ")
Next j
TmpC = TmpC + Chr$(13)
Next i
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Copy of (A) = (C) is " & Chr$(13) & Chr$(13) & TmpC & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Call cMatrixCopy(3, ArrayA(), ArrayC())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixDet()
Dim Tmp1 As String
Dim TmpA As String
Dim TmpC As String
Dim i As Integer
Dim j As Integer
Dim det As Double
Dim nSize As Integer
nSize = 3
ReDim ArrayA(1 To nSize, 1 To nSize) As Double
Randomize Timer
For i = 1 To nSize
For j = 1 To nSize
ArrayA(i, j) = Int(RandI * Rnd(1))
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
Next i
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Det of (A) = " & cMatrixDet(nSize, ArrayA()) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
det = cMatrixDet(nSize, ArrayA())
DoEvents
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixInv()
Dim Tmp1 As String
Dim TmpA As String
Dim TmpC As String
Dim i As Integer
Dim j As Integer
Dim result As Integer
ReDim ArrayA(1 To 3, 1 To 3) As Double
ReDim ArrayC(1 To 3, 1 To 3) As Double
Randomize Timer
result = cMatrixFill(3, ArrayA(), MATRIX_ZERO)
result = cMatrixFill(3, ArrayC(), MATRIX_UNIT)
For i = 1 To 3
For j = 1 To 3
ArrayA(i, j) = Int(RandI * Rnd(1))
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
Next i
result = cMatrixInv(3, ArrayA(), ArrayC())
If (result = True) Then
For i = 1 To 3
For j = 1 To 3
TmpC = TmpC + Format$(ArrayC(i, j), "0.0000000 ")
Next j
TmpC = TmpC + Chr$(13)
Next i
Else
TmpC = " 'can be inverted'"
End If
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Inv of (A) = (C) is " & Chr$(13) & TmpC & Chr$(13)
'
TmpA = ""
TmpC = ""
result = cMatrixFill(3, ArrayA(), MATRIX_ZERO)
result = cMatrixFill(3, ArrayC(), MATRIX_ZERO)
For i = 1 To 3
For j = 1 To 3
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
Next i
result = cMatrixInv(3, ArrayA(), ArrayC())
If (result = True) Then
For i = 1 To 3
For j = 1 To 3
TmpC = TmpC + Format$(ArrayC(i, j), "0.0000000 ")
Next j
TmpC = TmpC + Chr$(13)
Next i
Else
TmpC = " 'can be inverted'"
End If
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Inv of (A) = (C) is " & Chr$(13) & TmpC & Chr$(13) & Chr$(13)
For i = 1 To 3
For j = 1 To 3
ArrayA(i, j) = Int(RandI * Rnd(1))
Next j
Next i
cStartBasisTimer
For i = 1 To ItemFile
result = cMatrixInv(3, ArrayA(), ArrayC())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixMinCo()
Dim Tmp1 As String
Dim TmpA As String
Dim TmpC As String
Dim i As Integer
Dim j As Integer
Dim cofact As Double
Dim nSize As Integer
nSize = 3
ReDim ArrayA(1 To nSize, 1 To nSize) As Double
Randomize Timer
For i = 1 To nSize
For j = 1 To nSize
ArrayA(i, j) = Int(RandI * Rnd(1))
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
Next i
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & Chr$(13) & TmpA & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "CoFactor of A(1,1) = " & cMatrixCoFactor(nSize, ArrayA(), 1, 1) & Chr$(13)
Tmp1 = Tmp1 & "CoFactor of A(2,2) = " & cMatrixCoFactor(nSize, ArrayA(), 2, 2) & Chr$(13)
Tmp1 = Tmp1 & "CoFactor of A(3,3) = " & cMatrixCoFactor(nSize, ArrayA(), 3, 3) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Minor of A(1,1) = " & cMatrixMinor(nSize, ArrayA(), 1, 1) & Chr$(13)
Tmp1 = Tmp1 & "Minor of A(2,2) = " & cMatrixMinor(nSize, ArrayA(), 2, 2) & Chr$(13)
Tmp1 = Tmp1 & "Minor of A(3,3) = " & cMatrixMinor(nSize, ArrayA(), 3, 3) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
cofact = cMatrixCoFactor(nSize, ArrayA(), 1, 1)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixMul()
Dim Tmp1 As String
Dim TmpA As String
Dim TmpB As String
Dim TmpC As String
Dim i As Integer
Dim j As Integer
ReDim ArrayA(1 To 3, 1 To 3) As Double
ReDim ArrayB(1 To 3, 1 To 3) As Double
ReDim ArrayC(1 To 3, 1 To 3) As Double
Randomize Timer
For i = 1 To 3
For j = 1 To 3
ArrayA(i, j) = Int(RandI * Rnd(1))
ArrayB(i, j) = Int(RandI * Rnd(1))
ArrayC(i, j) = 0
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
TmpB = TmpB + Format$(ArrayB(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
TmpB = TmpB + Chr$(13)
Next i
Call cMatrixMul(3, ArrayA(), ArrayB(), ArrayC())
For i = 1 To 3
For j = 1 To 3
TmpC = TmpC + Format$(ArrayC(i, j), "000000000000 ")
Next j
TmpC = TmpC + Chr$(13)
Next i
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Second array (B) is " & Chr$(13) & Chr$(13) & TmpB & Chr$(13)
Tmp1 = Tmp1 & "The multiply (A) . (B) = (C) is " & Chr$(13) & Chr$(13) & TmpC & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Call cMatrixMul(3, ArrayA(), ArrayB(), ArrayC())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixSub()
Dim Tmp1 As String
Dim TmpA As String
Dim TmpB As String
Dim TmpC As String
Dim i As Integer
Dim j As Integer
ReDim ArrayA(1 To 3, 1 To 3) As Double
ReDim ArrayB(1 To 3, 1 To 3) As Double
ReDim ArrayC(1 To 3, 1 To 3) As Double
Randomize Timer
For i = 1 To 3
For j = 1 To 3
ArrayA(i, j) = Int(RandI * Rnd(1))
ArrayB(i, j) = Int(RandI * Rnd(1))
ArrayC(i, j) = 0
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
TmpB = TmpB + Format$(ArrayB(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
TmpB = TmpB + Chr$(13)
Next i
Call cMatrixSub(3, ArrayA(), ArrayB(), ArrayC())
For i = 1 To 3
For j = 1 To 3
TmpC = TmpC + Format$(ArrayC(i, j), "00000 ")
Next j
TmpC = TmpC + Chr$(13)
Next i
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Second array (B) is " & Chr$(13) & Chr$(13) & TmpB & Chr$(13)
Tmp1 = Tmp1 & "The substract (A) - (B) = (C) is " & Chr$(13) & Chr$(13) & TmpC & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Call cMatrixSub(3, ArrayA(), ArrayB(), ArrayC())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixSymToeplitz()
Dim Tmp1 As String
Dim TmpA As String
Dim TmpC As String
Dim i As Integer
Dim j As Integer
Dim result As Integer
ReDim ArrayA(1 To 3, 1 To 3) As Double
ReDim ArrayC(1 To 3, 1 To 3) As Double
Randomize Timer
For i = 1 To 1
For j = 1 To 3
ArrayA(i, j) = Int(RandI * Rnd(1))
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
Next i
result = cMatrixSymToeplitz(3, ArrayA(), ArrayC())
For i = 1 To 3
For j = 1 To 3
TmpC = TmpC + Format$(ArrayC(i, j), "00000 ")
Next j
TmpC = TmpC + Chr$(13)
Next i
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Symmetrical Toeplitz of (A) = (C) is " & Chr$(13) & Chr$(13) & TmpC & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
result = cMatrixSymToeplitz(3, ArrayA(), ArrayC())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixTranspose()
Dim Tmp1 As String
Dim TmpA As String
Dim TmpC As String
Dim i As Integer
Dim j As Integer
ReDim ArrayA(1 To 3, 1 To 3) As Double
ReDim ArrayC(1 To 3, 1 To 3) As Double
Randomize Timer
For i = 1 To 3
For j = 1 To 3
ArrayA(i, j) = Int(RandI * Rnd(1))
ArrayC(i, j) = 0
TmpA = TmpA + Format$(ArrayA(i, j), "00000 ")
Next j
TmpA = TmpA + Chr$(13)
Next i
Call cMatrixTranspose(3, ArrayA(), ArrayC())
For i = 1 To 3
For j = 1 To 3
TmpC = TmpC + Format$(ArrayC(i, j), "00000 ")
Next j
TmpC = TmpC + Chr$(13)
Next i
Tmp1 = Tmp1 & "First array (A) is " & Chr$(13) & Chr$(13) & TmpA & Chr$(13)
Tmp1 = Tmp1 & "Transpose of (A) = (C) is " & Chr$(13) & Chr$(13) & TmpC & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
Call cMatrixTranspose(3, ArrayA(), ArrayC())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMaxI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Double
ReDim array(ItemMean) As Integer
Randomize Timer
For i = LBound(array) To UBound(array)
array(i) = RandI * Rnd(1)
List1.AddItem "" & array(i)
Next i
j = cSortI(array())
For i = LBound(array) To UBound(array)
List2.AddItem "" & array(i)
Next i
List2.ListIndex = List2.ListCount - 1
Tmp1 = "The MAX of a integer array of " & (ItemMean + 1) & " elements is " & Chr$(13) & Chr$(13) & cMaxI(array()) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
m = cMaxI(array())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMD5()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp2 = "T2WIN-16"
Tmp = Text1.Text
Tmp1 = "HashMD5 for '" & Tmp2 & "' is " & cHashMD5(Tmp2) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "HashMD5 for '" & Tmp & "' is " & cHashMD5(Tmp) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "HashMD5 for '" & LCase$(Tmp2) & "' is " & cHashMD5(LCase$(Tmp2)) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "HashMD5 for '" & LCase$(Tmp) & "' is " & cHashMD5(LCase$(Tmp)) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "HashMD5 for '" & Left$(Tmp2, 3) & "' is " & cHashMD5(Left$(Tmp2, 3)) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp3 = cHashMD5(Tmp2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMDA(Management As Integer)
Dim Tmp As String
Dim ErrCode As Integer
Dim MDA As tagMULTIPLEDISKARRAY
Dim TE As tagTASKENTRY
ErrCode = cMakeDir("c:\t2w_tmp")
MDA.nFilename = "c:\t2w_tmp\mda.tmp"
MDA.nType(1) = DA_LONG 'long
MDA.nIsTyped(1) = False
MDA.nRows(1) = 20
MDA.nCols(1) = 20
MDA.nSheets(1) = 2
MDA.nType(2) = 10 'string
MDA.nIsTyped(2) = False
MDA.nRows(2) = 20
MDA.nCols(2) = 20
MDA.nSheets(2) = 2
MDA.nType(9) = Len(TE) 'type'd
MDA.nIsTyped(9) = True
MDA.nRows(9) = 20
MDA.nCols(9) = 20
MDA.nSheets(9) = 2
Select Case Management
Case True 'create
ErrCode = cMDACreate(MDA, True)
Case False 'use
ErrCode = cMDACreate(MDA, False)
Case 1 'clear all
ErrCode = cMDACreate(MDA, False)
If (ErrCode = -1) Then ErrCode = cMDAClear(1, MDA)
If (ErrCode = -1) Then ErrCode = cMDAClear(2, MDA)
If (ErrCode = -1) Then ErrCode = cMDAClear(9, MDA)
Case 2 'clear sheet 2
ErrCode = cMDACreate(MDA, False)
If (ErrCode = -1) Then ErrCode = cMDAClearSheet(1, MDA, 2)
If (ErrCode = -1) Then ErrCode = cMDAClearSheet(2, MDA, 2)
If (ErrCode = -1) Then ErrCode = cMDAClearSheet(9, MDA, 2)
Case 3 'clear last row
ErrCode = cMDACreate(MDA, False)
If (ErrCode = -1) Then ErrCode = cMDAClearRow(1, MDA, MDA.nRows(1), 1)
If (ErrCode = -1) Then ErrCode = cMDAClearRow(2, MDA, MDA.nRows(2), 1)
If (ErrCode = -1) Then ErrCode = cMDAClearRow(9, MDA, MDA.nRows(9), 1)
Case 4 'clear last col
ErrCode = cMDACreate(MDA, False)
If (ErrCode = -1) Then ErrCode = cMDAClearCol(1, MDA, MDA.nCols(1), 1)
If (ErrCode = -1) Then ErrCode = cMDAClearCol(2, MDA, MDA.nCols(2), 1)
If (ErrCode = -1) Then ErrCode = cMDAClearCol(9, MDA, MDA.nCols(9), 1)
Case 5 'clear last row in all sheets
ErrCode = cMDACreate(MDA, False)
If (ErrCode = -1) Then ErrCode = cMDAClearRow(1, MDA, MDA.nRows(1), -1)
If (ErrCode = -1) Then ErrCode = cMDAClearRow(2, MDA, MDA.nRows(2), -1)
If (ErrCode = -1) Then ErrCode = cMDAClearRow(9, MDA, MDA.nRows(9), -1)
Case 6 'clear last col in all sheets
ErrCode = cMDACreate(MDA, False)
If (ErrCode = -1) Then ErrCode = cMDAClearCol(1, MDA, MDA.nCols(1), -1)
If (ErrCode = -1) Then ErrCode = cMDAClearCol(2, MDA, MDA.nCols(2), -1)
If (ErrCode = -1) Then ErrCode = cMDAClearCol(9, MDA, MDA.nCols(9), -1)
End Select
Tmp = Tmp & "ErrCode = " & ErrCode & Chr$(13) & Chr$(13)
If (ErrCode = True) Then
Tmp = Tmp & "MDA.daSize = " & MDA.daSize & Chr$(13)
Tmp = Tmp & "MDA.Signature = " & MDA.signature & Chr$(13)
Tmp = Tmp & "MDA.nFilename = " & Trim$(MDA.nFilename) & Chr$(13)
Tmp = Tmp & "MDA.rHandle = " & MDA.rHandle & Chr$(13)
Tmp = Tmp & "MDA.rFileSize = " & MDA.rFileSize & Chr$(13) & Chr$(13)
Tmp = Tmp & "MDA.nType(1)(2)(9) = (" & MDA.nType(1) & ") (" & MDA.nType(2) & ") (" & MDA.nType(9) & ")" & Chr$(13)
Tmp = Tmp & "MDA.nIsTyped(1)(2)(9) = (" & MDA.nIsTyped(1) & ") (" & MDA.nIsTyped(2) & ") (" & MDA.nIsTyped(9) & ")" & Chr$(13)
Tmp = Tmp & "MDA.nRows(1)(2)(9) = (" & MDA.nRows(1) & ") (" & MDA.nRows(2) & ") (" & MDA.nRows(9) & ")" & Chr$(13)
Tmp = Tmp & "MDA.nCols(1)(2)(9) = (" & MDA.nCols(1) & ") (" & MDA.nCols(2) & ") (" & MDA.nCols(9) & ")" & Chr$(13)
Tmp = Tmp & "MDA.nSheets(1)(2)(9) = (" & MDA.nSheets(1) & ") (" & MDA.nSheets(2) & ") (" & MDA.nSheets(9) & ")" & Chr$(13)
Tmp = Tmp & "MDA.rElementSz(1)(2)(9) = (" & MDA.rElementSz(1) & ") (" & MDA.rElementSz(2) & ") (" & MDA.rElementSz(9) & ")" & Chr$(13)
Tmp = Tmp & "MDA.rSheetSz(1)(2)(9) = (" & MDA.rSheetSz(1) & ") (" & MDA.rSheetSz(2) & ") (" & MDA.rSheetSz(9) & ")" & Chr$(13)
Tmp = Tmp & "MDA.rOffsetPos(1)(2)(9) = (" & MDA.rOffsetPos(1) & ") (" & MDA.rOffsetPos(2) & ") (" & MDA.rOffsetPos(9) & ")" & Chr$(13) & Chr$(13)
If (Management = True) Then
Call cMDAPut(1, MDA, 1, 1, 1, 123456789)
Call cMDAPut(1, MDA, MDA.nRows(1), MDA.nCols(1), MDA.nSheets(1), 987654321)
Call cMDAPut(2, MDA, 1, 1, 1, "S:1, ABCDEFGHIJ")
Call cMDAPut(2, MDA, MDA.nRows(2), MDA.nCols(2), MDA.nSheets(2), "S:" & MDA.nSheets(2) & ", oprqstuvwxyz")
ErrCode = cTasks(TE, True)
Call cMDAPutType(9, MDA, 1, 1, 1, TE)
ErrCode = cTasks(TE, False)
Call cMDAPutType(9, MDA, MDA.nRows(9), MDA.nCols(9), MDA.nSheets(9), TE)
End If
Tmp = Tmp & "A:1 , R:1 , C:1 , S:1, Value : " & Trim$(cMDAGet(1, MDA, 1, 1, 1)) & " , time : " & MDA.rTime & Chr$(13)
Tmp = Tmp & "A:1 , R:" & MDA.nRows(1) & ", C:" & MDA.nCols(1) & ", S:" & MDA.nSheets(1) & ", Value : " & Trim$(cMDAGet(1, MDA, MDA.nRows(1), MDA.nCols(1), MDA.nSheets(1))) & " , time : " & MDA.rTime & Chr$(13)
Tmp = Tmp & "A:2 , R:1 , C:1 , S:1, Value : " & Trim$(cMDAGet(2, MDA, 1, 1, 1)) & " , time : " & MDA.rTime & Chr$(13)
Tmp = Tmp & "A:2 , R:" & MDA.nRows(2) & ", C:" & MDA.nCols(2) & ", S:" & MDA.nSheets(2) & ", Value : " & Trim$(cMDAGet(2, MDA, MDA.nRows(2), MDA.nCols(2), MDA.nSheets(2))) & " , time : " & MDA.rTime & Chr$(13)
Call cMDAGetType(9, MDA, 1, 1, 1, TE)
Tmp = Tmp & "A:9 , R:1 , C:1 , S:1, TE.szModule : " & cCompress(TE.szModule) & " , time : " & MDA.rTime & Chr$(13)
Call cMDAGetType(9, MDA, MDA.nRows(9), MDA.nCols(9), MDA.nSheets(9), TE)
Tmp = Tmp & "A:9 , R:" & MDA.nRows(9) & ", C:" & MDA.nCols(9) & ", S:" & MDA.nSheets(9) & ", TE.szModule : " & cCompress(TE.szModule) & " , time : " & MDA.rTime & Chr$(13)
End If
Call cMDAClose(MDA, False)
Label3.Caption = Tmp
End Sub
Private Sub TestMeanI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Double
ReDim array(ItemMean) As Integer
Randomize Timer
m = 0
For i = LBound(array) To UBound(array)
array(i) = Int(RandI * Rnd(1))
m = m + array(i)
List1.AddItem "" & array(i)
Next i
Tmp1 = "The Mean of a integer array of " & (ItemMean + 1) & " elements is " & Chr$(13) & Chr$(13) & cMeanI(array()) & " (" & (m / (UBound(array) - LBound(array) + 1)) & ")" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
m = cMeanI(array())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMenuChange()
Call cSysMenuChange(Me.hWnd, 0, "&Restaurer")
Call cSysMenuChange(Me.hWnd, 1, "&Positionner")
Call cSysMenuChange(Me.hWnd, 2, "&Taille")
Call cSysMenuChange(Me.hWnd, 3, "&Ic⌠ne")
Call cSysMenuChange(Me.hWnd, 4, "&Plein Θcran")
Call cSysMenuChange(Me.hWnd, 6, "&Fermer" + Chr$(9) + "Alt+F4")
Call cSysMenuChange(Me.hWnd, 8, "&TΓche" + Chr$(9) + "Ctrl+Esc")
End Sub
Private Sub TestMin()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Long
Tmp1 = "Min of [32760,1234567] is " & cMin(32760, 1234567) & Chr$(13)
Tmp1 = Tmp1 + "Max of [32760,1234567] is " & cMax(32760, 1234567) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cMin(32760, 1234567)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMinI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Double
ReDim array(ItemMean) As Integer
Randomize Timer
For i = LBound(array) To UBound(array)
array(i) = RandI * Rnd(1)
List1.AddItem "" & array(i)
Next i
j = cSortI(array())
For i = LBound(array) To UBound(array)
List2.AddItem "" & array(i)
Next i
List2.ListIndex = 0
Tmp1 = "The MIN of a integer array of " & (ItemMean + 1) & " elements is " & Chr$(13) & Chr$(13) & cMinI(array()) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
m = cMinI(array())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMixChars()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & Chr$(13) & Chr$(13)
Tmp = "T2WIN-16"
Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & Chr$(13) & Chr$(13)
Tmp = "Nothing can beat the fox"
Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & Chr$(13) & Chr$(13)
Tmp = Text1.Text
Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cMixChars(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMnuLanguage()
Load frmLng
Call cShowWindow(frmLng.hWnd, 1, 340)
frmLng.Show
End Sub
Private Sub TestMorse()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "SOS"
Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & Chr$(13) & Chr$(13)
Tmp = "T2WIN-16"
Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & Chr$(13) & Chr$(13)
Tmp = "Nothing can beat the fox"
Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & Chr$(13) & Chr$(13)
Tmp = Text1.Text
Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cMorse(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestMsgBox()
Dim i As Integer
Dim N As Integer
Dim Tmp As String
Tmp = "'T2WIN-16'" & Chr$(13) & Chr$(13)
Tmp = Tmp & " is a powerfull data link library for using with Visual Basic 3.0 for Windows." & Chr$(13) & Chr$(13)
Tmp = Tmp & "It looks very better than the standard message box." & Chr$(13) & Chr$(13)
Tmp = Tmp & "All push buttons are displayed in French." & Chr$(13) & Chr$(13)
Tmp = Tmp & "The system menu is also in French." & Chr$(13) & Chr$(13)
Tmp = Tmp & "A TimeOut of 10 seconds has been activated and displayed."
For i = 0 To 5
Call cLngBoxMsg(LNG_FRENCH, Tmp, i + (16 * i) + 512 + MB_MESSAGE_CENTER + MB_TIMEOUT_10 + MB_DISPLAY_TIMEOUT, "Message Box in French with TimeOut")
Next i
End Sub
Private Sub TestOneCharFromLeft()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "The 3,7,1 chars from left of [" & Tmp & "] are " & Chr$(13) & Chr$(13)
Tmp = Text1.Text
Tmp1 = Title & "3:" & cOneCharFromLeft(Tmp, 3) & " | 7:" & cOneCharFromLeft(Tmp, 7) & " | 1:" & cOneCharFromLeft(Tmp, 1) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cOneCharFromLeft(Tmp, 2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestOneCharFromRight()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "The 3,7,1 chars from right of [" & Tmp & "] are " & Chr$(13) & Chr$(13)
Tmp = Text1.Text
Tmp1 = Title & "3:" & cOneCharFromRight(Tmp, 3) & " | 7:" & cOneCharFromRight(Tmp, 7) & " | 1:" & cOneCharFromRight(Tmp, 1) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cOneCharFromRight(Tmp, 2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestOrToken()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "FOX|OVER|THE"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrToken(Tmp2, Tmp), "present", "not present") & Chr$(13) & Chr$(13)
Tmp = "quick|jumps|the"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrToken(Tmp2, Tmp), "present", "not present") & Chr$(13) & Chr$(13)
Tmp = "FOX\OVER\THE"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrTokenIn(Tmp2, Tmp, "\"), "present", "not present") & Chr$(13) & Chr$(13)
Tmp = "quick\jumps\the"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrTokenIn(Tmp2, Tmp, "\"), "present", "not present") & Chr$(13) & Chr$(13)
Tmp = "FOX/OVER/THE"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrTokenIn(Tmp2, Tmp, "\"), "present", "not present") & Chr$(13) & Chr$(13)
Tmp = "quick\JUMPS\the"
Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrTokenIn(Tmp2, Tmp, "\"), "present", "not present") & Chr$(13) & Chr$(13)
Tmp = LCase$("quick\jumps\THE")
Tmp2 = LCase$("THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG")
Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrTokenIn(Tmp2, Tmp, "\"), "present", "not present") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cOrToken(Tmp2, Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestPatternExtMatch()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Integer
Tmp2 = "Under the blue sky, the sun lights"
Tmp1 = "PatternExtMatch '" & Tmp2 & "' with" & Chr$(13) & Chr$(13)
Tmp3 = "*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "*??*???*?"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "*Under*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "*sky*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "*lights"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "??der*sky*ligh??*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "Under?the * s??,*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "[U-U][a-z][a-z][a-z][a-z]?the *"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "[U-U][!A-Z][^A-Z][^A-Z][!A-Z]?the *[s-s]"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "~55~6E*~73"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "[Uu][Nn][dD][eE][opqrst]?the *[rstu]"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "Under?the *[~72~73~74~75]"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13) & Chr$(13)
Tmp3 = "*under*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "Under*sun"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "Under t??e*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "[U-U][!a-z][^A-Z][^A-Z][!A-Z]?the *[!s-s]"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "~55~6G*~73"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "[Uu][Nn][dD][eE][opqrst]?the *[rStu]"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "Under?the *[~72~53~74~75]"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13) & Chr$(13)
Tmp3 = "Under?the * s??,*"
cStartBasisTimer
For i = 1 To Item
j = cPatternExtMatch(Tmp2, Tmp3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestPatternMatch()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Integer
Tmp2 = "Under the blue sky, the sun lights"
Tmp1 = "PatternMatch '" & Tmp2 & "' with" & Chr$(13) & Chr$(13)
Tmp3 = "*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "*??*???*?"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "*Under*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "*sky*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "*lights"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "??der*sky*ligh??*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "Under?the * s??,*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13) & Chr$(13)
Tmp3 = "*under*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "Under*sun"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
Tmp3 = "Under t??e*"
Tmp1 = Tmp1 & "'" & Tmp3 & "' is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13) & Chr$(13)
Tmp3 = "Under?the * s??,*"
cStartBasisTimer
For i = 1 To Item
j = cPatternMatch(Tmp2, Tmp3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestProperName()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Tmp1 = Tmp1 + "ProperName of [" & Tmp & "] is " & cProperName(Tmp) & Chr$(13) & Chr$(13)
Tmp = "John fitz,jr"
Tmp1 = Tmp1 + "ProperName of [" & Tmp & "] is " & cProperName(Tmp) & Chr$(13) & Chr$(13)
Tmp = "john Fitz, jr"
Tmp1 = Tmp1 + "ProperName of [" & Tmp & "] is " & cProperName(Tmp) & Chr$(13) & Chr$(13)
Tmp = "macdonald"
Tmp1 = Tmp1 + "ProperName of [" & Tmp & "] is " & cProperName(Tmp) & Chr$(13) & Chr$(13)
Tmp = "mac donald"
Tmp1 = Tmp1 + "ProperName of [" & Tmp & "] is " & cProperName(Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cProperName(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestProperName2()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", 0) & "'" & Chr$(13) & Chr$(13)
Tmp = "JOHN FITZ,JR"
Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", PN_UPPERCASE Or PN_PUNCTUATION) & "'" & Chr$(13) & Chr$(13)
Tmp = "john Fitz,jr"
Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", PN_PUNCTUATION) & "'" & Chr$(13) & Chr$(13)
Tmp = "macdonald"
Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", 0) & "'" & Chr$(13) & Chr$(13)
Tmp = "mac donald"
Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", 0) & "'" & Chr$(13) & Chr$(13)
Tmp = "a.l. greene jr."
Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", PN_PUNCTUATION) & "'" & Chr$(13) & Chr$(13)
Tmp = "shale and sandstone and till"
Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "the/of/a/an/and", PN_PUNCTUATION) & "'" & Chr$(13) & Chr$(13)
Tmp = "a sandstone or a shale"
Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "the/or/of/a/an/and", PN_PUNCTUATION) & "'" & Chr$(13) & Chr$(13)
Tmp = "RR2 BARRHEAD"
Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "rr2", PN_UPPERCASE Or PN_PUNCTUATION Or PN_KEEP_ORIGINAL) & "'" & Chr$(13) & Chr$(13)
Tmp = "ANDY MACDONALD"
Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "mac", PN_UPPERCASE Or PN_PUNCTUATION Or PN_KEEP_ORIGINAL Or PN_ONLY_LEADER_SPACE) & "'" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cProperName2(Tmp, "", 0)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestRcsCountFileDir()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Tmp1 = ""
Tmp1 = Tmp1 & "Total directories in C: is " & cRcsCountFileDir(False, "C:", "", True) & Chr$(13)
Tmp1 = Tmp1 & "Total directories in D: is " & cRcsCountFileDir(False, "D:", "", True) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Total files in C: is " & cRcsCountFileDir(True, "C:", "", True) & Chr$(13)
Tmp1 = Tmp1 & "Total files in D: is " & cRcsCountFileDir(True, "D:", "", True) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Total files in C:*.DAT is " & cRcsCountFileDir(True, "C:", "*.DAT", True) & Chr$(13)
Tmp1 = Tmp1 & "Total files in D:*.DAT is " & cRcsCountFileDir(True, "D:", "*.DAT", True) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Total directories in C:\ is " & cRcsCountFileDir(False, "C:", "", False) & Chr$(13)
Tmp1 = Tmp1 & "Total directories in D:\ is " & cRcsCountFileDir(False, "D:", "", False) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Total files in C:\ is " & cRcsCountFileDir(True, "C:", "", False) & Chr$(13)
Tmp1 = Tmp1 & "Total files in D:\ is " & cRcsCountFileDir(True, "D:", "", False) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Total files in C:\*.DAT is " & cRcsCountFileDir(True, "C:", "*.DAT", False) & Chr$(13)
Tmp1 = Tmp1 & "Total files in D:\*.DAT is " & cRcsCountFileDir(True, "D:", "*.DAT", False) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To 10
k = cRcsCountFileDir(False, "C:", "", False)
Next i
Tmp1 = Tmp1 & "speed for " & 10 & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestRcsFilesSize()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim Size1 As Long
Dim Size2 As Long
Tmp1 = ""
Tmp1 = Tmp1 & "Size of files c:\*.* is " & cRcsFilesSize("c:\", "*.*", False) & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.exe is " & cRcsFilesSize("c:\", "*.exe", False) & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.com is " & cRcsFilesSize("c:\", "*.com", False) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.* on disk is " & cRcsFilesSizeOnDisk("c:\", "*.*", False) & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.exe on disk is " & cRcsFilesSizeOnDisk("c:\", "*.exe", False) & Chr$(13)
Tmp1 = Tmp1 & "Size of files c:\*.com on disk is " & cRcsFilesSizeOnDisk("c:\", "*.com", False) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Slack of files c:\*.* on disk is " & cRcsFilesSlack("c:\", "*.*", False, Size1, Size2) & " %" & Chr$(13)
Tmp1 = Tmp1 & "Slack of files c:\*.exe on disk is " & cRcsFilesSlack("c:\", "*.exe", False, Size1, Size2) & " %" & Chr$(13)
Tmp1 = Tmp1 & "Slack of files c:\*.com on disk is " & cRcsFilesSlack("c:\", "*.com", False, Size1, Size2) & " %" & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Size of files starting with c:\*.* is " & cRcsFilesSize("c:\", "*.*", True) & Chr$(13)
Tmp1 = Tmp1 & "Size of files starting with c:\*.exe is " & cRcsFilesSize("c:\", "*.exe", True) & Chr$(13)
Tmp1 = Tmp1 & "Size of files starting with c:\*.com is " & cRcsFilesSize("c:\", "*.com", True) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Size of files starting with c:\*.* on disk is " & cRcsFilesSizeOnDisk("c:\", "*.*", True) & Chr$(13)
Tmp1 = Tmp1 & "Size of files starting with c:\*.exe on disk is " & cRcsFilesSizeOnDisk("c:\", "*.exe", True) & Chr$(13)
Tmp1 = Tmp1 & "Size of files starting with c:\*.com on disk is " & cRcsFilesSizeOnDisk("c:\", "*.com", True) & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Slack of files starting with c:\*.* on disk is " & cRcsFilesSlack("c:\", "*.*", True, Size1, Size2) & " %" & Chr$(13)
Tmp1 = Tmp1 & "Slack of files starting with c:\*.exe on disk is " & cRcsFilesSlack("c:\", "*.exe", True, Size1, Size2) & " %" & Chr$(13)
Tmp1 = Tmp1 & "Slack of files starting with c:\*.com on disk is " & cRcsFilesSlack("c:\", "*.com", True, Size1, Size2) & " %" & Chr$(13)
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To 10
k = cRcsFilesSize("c:\", "*.*", False)
Next i
Tmp1 = Tmp1 & "speed for " & 10 & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestReadLanguage()
Load frmLng
Call cShowWindow(frmLng.hWnd, 1, 340)
frmLng.Show
End Sub
Private Sub TestRegistrationKey()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp2 = "T2WIN-16"
Tmp3 = "12345"
Tmp = Text1.Text
Tmp1 = "Registration key for '" & Tmp2 & "' with '" & Tmp3 & "' is " & cRegistrationKey(Tmp2, Val(Tmp3)) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Registration key for '" & cBlockCharFromLeft(Tmp2, 1) & "n" & "' with '" & Tmp3 & "' is " & cRegistrationKey(cBlockCharFromLeft(Tmp2, 1) + "n", Val(Tmp3)) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Registration key for '" & Tmp & "' with '" & Tmp3 & "' is " & cRegistrationKey(Tmp, Val(Tmp3)) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Registration key for '" & LCase$(Tmp2) & "' with '" & Tmp3 & "' is " & cRegistrationKey(LCase$(Tmp2), Val(Tmp3)) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Registration key for '" & LCase$(Tmp) & "' with '" & Tmp3 & "' is " & cRegistrationKey(LCase$(Tmp), Val(Tmp3)) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Registration key for '" & Left$(Tmp2, 3) & "' with '" & Tmp3 & "' is " & cRegistrationKey(Left$(Tmp2, 3), Val(Tmp3)) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cRegistrationKey(Tmp2, Val(Tmp3))
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestRemoveBlockChar()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Removing 3 chars from the 7 of [" & Tmp & "] is "
Tmp = cRemoveBlockChar(Tmp, 7, 3)
Tmp1 = Title & Tmp & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp = cRemoveBlockChar(Tmp, 1, 2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestRemoveOneChar()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Removing the 7 char of [" & Tmp & "] is "
Tmp = cRemoveOneChar(Tmp, 7)
Tmp1 = Title & Tmp & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp = cRemoveOneChar(Tmp, 1)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestRenameFile()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
j = cKillFile("XY~YX~XY.~~~")
j = cKillFile("XY-YX-XY.---")
Close #1
Open "XY~YX~XY.~~~" For Output As #1
Print #1, "this is a test";
Close #1
Tmp1 = "File XY~YX~XY.~~~ " & IIf(cRenameFile("XY~YX~XY.~~~", "XY-YX-XY.---") = True, "renamed in XY-YX-XY.---", "is not renamed") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cRenameFile("XY~YX~XY.~~~", "XY-YX-XY.---")
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestResizeString()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Tmp1 = Tmp & " is resized from " & Len(Tmp) & " to 5 chars " & cResizeString(Tmp, 5) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cResizeString(Tmp, 3)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestResizeStringAndFill()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Tmp1 = Tmp & " is resized from " & Len(Tmp) & " to 35 chars and lengthened with @ is " & Chr$(13) & Chr$(13) & cResizeStringAndFill(Tmp, 35, "@") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cResizeStringAndFill(Tmp, 35, "@")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestReverse()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Reverse of [" & Tmp & "] is "
Tmp1 = Title & cReverse(Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cReverse(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestReverseAllBits()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Reverse all bits of [" & Tmp & "] is "
Call cReverseAllBits(Tmp)
Tmp1 = Title & Tmp & Chr$(13) & Chr$(13)
Title = "Reverse all bits of [" & Tmp & "] is "
Call cReverseAllBits(Tmp)
Tmp1 = Tmp1 & Title & Tmp & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cReverseAllBits(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestReverseAllBitsByChar()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Reverse all bits by char of [" & Tmp & "] is "
Call cReverseAllBitsByChar(Tmp)
Tmp1 = Title & Tmp & Chr$(13) & Chr$(13)
Title = "Reverse all bits by char of [" & Tmp & "] is "
Call cReverseAllBitsByChar(Tmp)
Tmp1 = Tmp1 & Title & Tmp & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cReverseAllBitsByChar(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestReverseSortI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Integer
ReDim array(ItemMean) As Integer
Randomize Timer
For i = LBound(array) To UBound(array)
array(i) = RandI * Rnd(1)
List1.AddItem "" & array(i)
Next i
j = cReverseSortI(array())
For i = LBound(array) To UBound(array)
List2.AddItem "" & array(i)
Next i
cStartBasisTimer
For i = 1 To ItemFile
j = cReverseSortI(array())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestRndX()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Call cRndInit(-1)
Tmp1 = "Some random Integer number" & Chr$(13) & Chr$(13)
For i = 1 To 2
Tmp1 = Tmp1 & cRndI() & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Some random Long number" & Chr$(13) & Chr$(13)
For i = 1 To 2
Tmp1 = Tmp1 & cRndL() & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Some random Single number" & Chr$(13) & Chr$(13)
For i = 1 To 2
Tmp1 = Tmp1 & cRndS() & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Some random Double number" & Chr$(13) & Chr$(13)
For i = 1 To 2
Tmp1 = Tmp1 & cRndD() & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
Tmp1 = Tmp1 & "Some random Double number between 0.0 and 1.0" & Chr$(13) & Chr$(13)
For i = 1 To 2
Tmp1 = Tmp1 & cRnd() & Chr$(13)
Next i
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cRndI()
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestRtoA()
Dim Tmp As String
Dim Tmp1 As String
Tmp = UCase$(cArabicToRoman(Year(Int(Now))))
Tmp1 = Tmp & " in Arabic is " & cRomanToArabic(LCase$(Tmp)) & Chr$(13)
Tmp = UCase$(cArabicToRoman(Year(Int(Now)) - 1))
Tmp1 = Tmp1 & Tmp & " in Arabic is " & cRomanToArabic(LCase$(Tmp)) & Chr$(13)
Tmp = UCase$(cArabicToRoman(Year(Int(Now)) + 1))
Tmp1 = Tmp1 & Tmp & " in Arabic is " & cRomanToArabic(LCase$(Tmp)) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestSearchI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Integer
ReDim array(20) As Integer
Call cRndInit(-1)
For i = LBound(array) To UBound(array)
array(i) = cRndI()
List1.AddItem "" & array(i)
Next i
Tmp1 = Tmp1 & "Search '" & array(5) & "' is " & cSearchI(array(), array(5)) & Chr$(13)
Tmp1 = Tmp1 & "Search '" & array(10) & "' is " & cSearchI(array(), array(10)) & Chr$(13)
Tmp1 = Tmp1 & "Search '" & array(15) & "' is " & cSearchI(array(), array(15)) & Chr$(13)
Tmp1 = Tmp1 & "Search '" & array(20) & "' is " & cSearchI(array(), array(20)) & Chr$(13)
Tmp1 = Tmp1 & "Search '" & -1234 & "' is " & cSearchI(array(), -1234) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cSearchI(array(), array(1))
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestSerial()
Dim Tmp As String
Dim Tmp1 As String
Dim getSD As tagSERIALDATA
Dim putSD As tagSERIALDATA
Dim i As Integer
Dim j As Integer
Call CreateFile
Tmp1 = "TEST.DAT"
Tmp = Tmp & "File '" & Tmp1 & "' is " & IIf(cIsSerial(Tmp1) = True, "serialized", "not serialized") & Chr$(13) & Chr$(13)
putSD.Description1 = "T2WIN-16 demonstration"
putSD.Description2 = "Under the blue sky, the sun lights"
putSD.Number = 136
Tmp = Tmp & "Put/Modify '" & Trim$(putSD.Description1) & "' - '" & Trim$(putSD.Description2) & "' - '" & putSD.Number & "'" & Chr$(13) & "into file '" & Tmp1 & "' is " & IIf(cSerialPut(Tmp1, putSD), "OK", "KO") & Chr$(13)
i = cSerialGet(Tmp1, getSD)
Tmp = Tmp & "Get from '" & Tmp1 & "' is : " & Chr$(13)
Tmp = Tmp & " description 1 : " & Trim$(getSD.Description1) & Chr$(13)
Tmp = Tmp & " description 2 : " & Trim$(getSD.Description2) & Chr$(13)
Tmp = Tmp & " number : " & getSD.Number & Chr$(13) & Chr$(13)
Tmp = Tmp & "Add 2 to serialized number part into file '" & Tmp1 & "' is " & IIf(cSerialInc(Tmp1, 2), "OK", "KO") & Chr$(13)
i = cSerialGet(Tmp1, getSD)
Tmp = Tmp & "Get from '" & Tmp1 & "' is : " & Chr$(13)
Tmp = Tmp & " description 1 : " & Trim$(getSD.Description1) & Chr$(13)
Tmp = Tmp & " description 2 : " & Trim$(getSD.Description2) & Chr$(13)
Tmp = Tmp & " number : " & getSD.Number & Chr$(13) & Chr$(13)
Tmp = Tmp & "Substract 9 to serialized number part into file '" & Tmp1 & "' is " & IIf(cSerialInc(Tmp1, -9), "OK", "KO") & Chr$(13)
i = cSerialGet(Tmp1, getSD)
Tmp = Tmp & "Get from '" & Tmp1 & "' is : " & Chr$(13)
Tmp = Tmp & " description 1 : " & Trim$(getSD.Description1) & Chr$(13)
Tmp = Tmp & " description 2 : " & Trim$(getSD.Description2) & Chr$(13)
Tmp = Tmp & " number : " & getSD.Number & Chr$(13) & Chr$(13)
Tmp = Tmp & "File '" & Tmp1 & "' is " & IIf(cIsSerial(Tmp1) = True, "serialized", "not serialized") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cSerialGet(Tmp1, getSD)
Next i
Tmp = Tmp & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp
End Sub
Private Sub TestSetAllBits()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Set all bits of [" & Tmp & "] on True is "
Call cSetAllBits(Tmp, True)
Tmp1 = Title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
Title = "Set all bits of [" & Tmp & "] on False is "
Call cSetAllBits(Tmp, False)
Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cSetAllBits(Tmp, True)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestSetBit()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Set bit 0,5,3 of [" & Tmp & "] on True is "
Call cSetBit(Tmp, 0, True)
Call cSetBit(Tmp, 5, True)
Call cSetBit(Tmp, 3, True)
Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
Title = "Set bit 22,30,38 of [" & Tmp & "] on False is "
Call cSetBit(Tmp, 22, False)
Call cSetBit(Tmp, 30, False)
Call cSetBit(Tmp, 38, False)
Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
Title = "Set bit 0,5,3 of [" & Tmp & "] on False is "
Call cSetBit(Tmp, 0, False)
Call cSetBit(Tmp, 5, False)
Call cSetBit(Tmp, 3, False)
Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
Title = "Set bit 22,30,38 of [" & Tmp & "] on True is "
Call cSetBit(Tmp, 22, True)
Call cSetBit(Tmp, 30, True)
Call cSetBit(Tmp, 38, True)
Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cSetBit(Tmp, 7, True)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestSetI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Double
ReDim array(ItemMean) As Integer
Randomize Timer
For i = LBound(array) To UBound(array)
array(i) = 0
List1.AddItem "" & array(i)
Next i
j = cSetI(array(), 1024)
For i = LBound(array) To UBound(array)
List2.AddItem "" & array(i)
Next i
Tmp1 = Tmp1 & "Set 1024 to element 1 of an integer array is : " & array(1) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Set 1024 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
j = cSetI(array(), 1.11)
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestSortI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Integer
ReDim array(ItemMean) As Integer
Randomize Timer
For i = LBound(array) To UBound(array)
array(i) = RandI * Rnd(1)
List1.AddItem "" & array(i)
Next i
j = cSortI(array())
For i = LBound(array) To UBound(array)
List2.AddItem "" & array(i)
Next i
cStartBasisTimer
For i = 1 To ItemFile
j = cSortI(array())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestSpellMoney()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim Units As String
Dim Cents As String
Units = "dollars"
Cents = "cents"
Tmp1 = "Spelling the following money value " & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "4.12 is '" & cSpellMoney(4.12, Units, Cents) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "16 is '" & cSpellMoney(16, Units, Cents) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "25 is '" & cSpellMoney(25, Units, Cents) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "34 is '" & cSpellMoney(34, Units, Cents) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "43 is '" & cSpellMoney(43, Units, Cents) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "61 is '" & cSpellMoney(61, Units, Cents) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "98765.43 is '" & cSpellMoney(98765.43, Units, Cents) & "'" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "123456789.75 is '" & cSpellMoney(123456789.75, Units, Cents) & "'" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cSpellMoney(12.34, Units, Cents)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestSplitPath()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim N As Integer
Dim j As Long
Dim SPLITPATH As tagSPLITPATH
Tmp1 = ""
Tmp = "C:\AUTOEXEC.BAT"
Tmp1 = Tmp1 & "Split Path " & Tmp & " into four components is :" & Chr$(13) & Chr$(13)
N = cSplitPath(Tmp, SPLITPATH)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDrive & Chr$(13)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDir & Chr$(13)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nName & Chr$(13)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nExt & Chr$(13) & Chr$(13)
Tmp = cGetSystemDirectory() & "\t2win-16.dll"
Tmp1 = Tmp1 & "Split Path " & Tmp & " into four components is :" & Chr$(13) & Chr$(13)
N = cSplitPath(Tmp, SPLITPATH)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDrive & Chr$(13)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDir & Chr$(13)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nName & Chr$(13)
Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nExt & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
N = cSplitPath(Tmp, SPLITPATH)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestStringCompress()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "T2WIN-16, T2WIN-16, T2WIN-16, T2WIN-16"
Tmp2 = cStringCompress(Tmp)
Tmp3 = cStringExpand(Tmp2)
Tmp1 = Tmp1 & "String Compress '" & Tmp & "' is " & Format$(Len(Tmp)) & " to " & Format$(Len(Tmp2)) & " bytes." & Chr$(13)
Tmp1 = Tmp1 & "String Expand is '" & Tmp3 & "'" & Chr$(13)
Tmp1 = Tmp1 & "Compare string contents (not sensitive) is " & IIf(LCase$(Tmp) = LCase$(Tmp3), "same", "not same") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cStringCompress(Tmp)
Next i
Tmp3 = cStringExpand(Tmp2)
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestStringCRC32()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Tmp = Text1.Text
Title = "CRC32 for string [" & Tmp & "] is "
Tmp1 = Title & Hex$(cStringCRC32(Tmp)) & Chr$(13) & Chr$(13)
Title = "CRC32 for string [" & cReverse(Tmp) & "] is "
Tmp1 = Tmp1 & Title & Hex$(cStringCRC32(cReverse(Tmp))) & Chr$(13) & Chr$(13)
Title = "CRC32 for string [" & LCase$(Tmp) & "] is "
Tmp1 = Tmp1 & Title & Hex$(cStringCRC32(LCase$(Tmp))) & Chr$(13) & Chr$(13)
Title = "CRC32 for string [" & LCase$(cReverse(Tmp)) & "] is "
Tmp1 = Tmp1 & Title & Hex$(cStringCRC32(LCase$(cReverse(Tmp)))) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
k = cStringCRC32(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestStringSAR()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp = "T2WIN-16, T2WIN-16, T2WIN-16, T2WIN-16 IS A DLL"
Tmp2 = cStringSAR(Tmp, "T2WIN-16", "t2win-16", False)
Tmp1 = Tmp1 & "Replace 'T2WIN-16' by 't2win-16'" & Chr$(13)
Tmp1 = Tmp1 & " in" & Chr$(13)
Tmp1 = Tmp1 & Tmp & Chr$(13)
Tmp1 = Tmp1 & " is" & Chr$(13)
Tmp1 = Tmp1 & Tmp2 & Chr$(13) & Chr$(13)
Tmp2 = cStringSAR(Tmp, " TO ", "2", True)
Tmp1 = Tmp1 & "Replace ' TO ' by '2'" & Chr$(13)
Tmp1 = Tmp1 & " in" & Chr$(13)
Tmp1 = Tmp1 & Tmp & Chr$(13)
Tmp1 = Tmp1 & " is" & Chr$(13)
Tmp1 = Tmp1 & Tmp2 & Chr$(13) & Chr$(13)
Tmp2 = cStringSAR(Tmp, "T2WIN-16, ", "", True)
Tmp1 = Tmp1 & "Replace 'T2WIN-16, ' by ''" & Chr$(13)
Tmp1 = Tmp1 & " in" & Chr$(13)
Tmp1 = Tmp1 & Tmp & Chr$(13)
Tmp1 = Tmp1 & " is" & Chr$(13)
Tmp1 = Tmp1 & Tmp2 & Chr$(13) & Chr$(13)
Tmp2 = cStringSAR(Tmp, "I", "i", False)
Tmp1 = Tmp1 & "Replace 'I' by 'i'" & Chr$(13)
Tmp1 = Tmp1 & " in" & Chr$(13)
Tmp1 = Tmp1 & Tmp & Chr$(13)
Tmp1 = Tmp1 & " is" & Chr$(13)
Tmp1 = Tmp1 & Tmp2 & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cStringSAR(Tmp, "T2WIN-16", "t2win-16", False)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestSubDirectory()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Title = "The 7 first directories in this directory are" & Chr$(13) & Chr$(13)
Tmp1 = Title
Tmp2 = cSubDirectory("*.*", True)
For i = 1 To 7
Tmp1 = Tmp1 & Tmp2 & Chr$(13)
Tmp2 = cSubDirectory("*.*", False)
Next i
Tmp1 = Tmp1 & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp = cSubDirectory("*.*", True)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestSumI()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim m As Double
ReDim array(ItemMean) As Integer
Randomize Timer
m = 0
For i = LBound(array) To UBound(array)
array(i) = Int(RandI * Rnd(1))
m = m + array(i)
List1.AddItem "" & array(i)
Next i
Tmp1 = "The Sum of a integer array of " & (ItemMean + 1) & " elements is " & Chr$(13) & Chr$(13) & cSumI(array()) & " (" & m & ")" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To ItemFile
m = cSumI(array())
Next i
Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestSwap()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Long
Dim i1 As Integer
Dim i2 As Integer
Dim s1 As String
Dim s2 As String
i1 = 3276
i2 = 12345
s1 = "Hello"
s2 = "World"
Tmp1 = "SwapI of [" & i1 & "," & i2 & "] is "
Call cSwapI(i1, i2)
Tmp1 = Tmp1 + "[" & i1 & "," & i2 & "]" & Chr$(13)
Tmp1 = Tmp1 + "SwapI of [" & i1 & "," & i2 & "] is "
Call cSwapI(i1, i2)
Tmp1 = Tmp1 + "[" & i1 & "," & i2 & "]" & Chr$(13)
Tmp1 = Tmp1 + "SwapStr of [" & s1 & "," & s2 & "] is "
Call cSwapStr(s1, s2)
Tmp1 = Tmp1 + "[" & s1 & "," & s2 & "]" & Chr$(13)
Tmp1 = Tmp1 + "SwapStr of [" & s1 & "," & s2 & "] is "
Call cSwapStr(s1, s2)
Tmp1 = Tmp1 + "[" & s1 & "," & s2 & "]" & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cSwapI(i1, i2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestSysMenuChange(Language As Integer)
Call cLngSysMenu(Language, Me.hWnd)
End Sub
Private Sub TestTime()
Dim Tmp1 As String
Dim i As Integer
Dim nNow As Long
Dim nHour As Integer
Dim nMinute As Integer
Dim nSecond As Integer
nHour = Hour(Now)
nMinute = Minute(Now)
nSecond = Second(Now)
nNow = cTimeToScalar(nHour, nMinute, nSecond)
Tmp1 = Tmp1 & "Now scalar time is '" & nNow & "'" & Chr$(13)
nHour = 0
nMinute = 0
nSecond = 0
Call cScalarToTime(nNow, nHour, nMinute, nSecond)
Tmp1 = Tmp1 & "Hour : " & nHour & ", Minute : " & nMinute & ", Second : " & nSecond & Chr$(13) & Chr$(13)
nNow = cTimeToScalar(32767, 59, 59)
Tmp1 = Tmp1 & "Maximum scalar time is '" & nNow & "'" & Chr$(13)
nHour = 0
nMinute = 0
nSecond = 0
Call cScalarToTime(nNow, nHour, nMinute, nSecond)
Tmp1 = Tmp1 & "Hour : " & nHour & ", Minute : " & nMinute & ", Second : " & nSecond & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
nNow = cTimeToScalar(nHour, nMinute, nSecond)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestTimeBetween()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "The time between 10:00 and 12:01 is " & cTimeBetween(600, 721) & " minutes" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The time between 23:58 and 01:02 is " & cTimeBetween(1438, 62) & " minutes" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cTimeBetween(0, 1439)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestTimer()
Dim Tmp1 As String
Dim Tmp As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim TimerHandle As Integer
Dim StartOk As Integer
Dim CloseOk As Integer
Tmp1 = "BASIS TIMER" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The elapsed time for a empty loop of 32766 iterations is "
cStartBasisTimer
For i = 1 To 32766
Next i
Tmp1 = Tmp1 & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The elapsed time for a integer loop of 32766 iterations is "
j = 0
cStartBasisTimer
For i = 1 To 32766
j = j + 1
Next i
Tmp1 = Tmp1 & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The elapsed time for a long loop of 32766 iterations is "
k = 0
cStartBasisTimer
For i = 1 To 32766
k = i * 2&
Next i
Tmp1 = Tmp1 & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The elapsed time for a string loop of 1000 iterations is "
cStartBasisTimer
For i = 1 To 1000
Tmp2 = Tmp2 + "a"
Next i
Tmp1 = Tmp1 & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Call cStartBasisTimer
StartOk = cSleep(1000)
Tmp1 = Tmp1 & "True time for 1 wait second is " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
TimerHandle = cTimerOpen()
Tmp1 = Tmp1 & "EXTENDED TIMER (handle is '" & TimerHandle & "')" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The elapsed time for a empty loop of 32766 iterations is "
StartOk = cTimerStart(TimerHandle)
For i = 1 To 32766
Next i
Tmp1 = Tmp1 & cTimerRead(TimerHandle) & " ms" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The elapsed time for a integer loop of 32766 iterations is "
j = 0
StartOk = cTimerStart(TimerHandle)
For i = 1 To 32766
j = j + 1
Next i
Tmp1 = Tmp1 & cTimerRead(TimerHandle) & " ms" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The elapsed time for a long loop of 32766 iterations is "
k = 0
StartOk = cTimerStart(TimerHandle)
For i = 1 To 32766
k = i * 2&
Next i
Tmp1 = Tmp1 & cTimerRead(TimerHandle) & " ms" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "The elapsed time for a string loop of 1000 iterations is "
StartOk = cTimerStart(TimerHandle)
For i = 1 To 1000
Tmp2 = Tmp2 + "a"
Next i
Tmp1 = Tmp1 & cTimerRead(TimerHandle) & " ms" & Chr$(13) & Chr$(13)
StartOk = cTimerStart(TimerHandle)
StartOk = cSleep(1000)
Tmp1 = Tmp1 & "True time for 1 wait second is " & cTimerRead(TimerHandle) & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
CloseOk = cTimerClose(TimerHandle)
End Sub
Private Sub TestToggleAllBits()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Toggle all bits of [" & Tmp & "] is "
Call cToggleAllBits(Tmp)
Tmp1 = Title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
Title = "Toggle all bits of [" & Tmp & "] is "
Call cToggleAllBits(Tmp)
Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cToggleAllBits(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestToggleBit()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = Text1.Text
Title = "Toggle bit 7,22,15 of [" & Tmp & "] is "
Call cToggleBit(Tmp, 7)
Call cToggleBit(Tmp, 22)
Call cToggleBit(Tmp, 15)
Tmp1 = Title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
Title = "Toggle bit 7,22,15 of [" & Tmp & "] is "
Call cToggleBit(Tmp, 7)
Call cToggleBit(Tmp, 22)
Call cToggleBit(Tmp, 15)
Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Call cToggleBit(Tmp, i)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestToken()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "A/BC\DEF=GHIJ?KLMNO:PQRSTUV"
Title = "The 2,4,1,5 blocks of [" & Tmp & "] separated by any one of '/\=?' are " & Chr$(13)
Tmp1 = Title & " 2:" & cTokenIn(Tmp, "/\=?", 2) & Chr$(13) & " 4:" & cTokenIn(Tmp, "/\=?", 4) & Chr$(13) & " 1:" & cTokenIn(Tmp, "/\=?", 1) & Chr$(13) & " 5:" & cTokenIn(Tmp, "/\=?", 5) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cTokenIn(Tmp, "/\=?", 2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestTrueBetween()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "601 is not true between 720 and 840 => " & cTrueBetween(601, 720, 840) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "601 is true between 540 and 602 => " & cTrueBetween(601, 540, 602) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "61 is not true between 61 and 62 => " & cTrueBetween(61, 61, 62) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cTrueBetween(720, 0, 1439)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestTruncatePath()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim Tmp3 As String
Dim i As Integer
Dim j As Long
Tmp1 = ""
Tmp1 = Tmp1 & "Truncate the following path with a length of 25" & Chr$(13) & Chr$(13)
Tmp = "t2win-16.bas"
Tmp2 = cTruncatePath(Tmp, 25)
Tmp1 = Tmp1 & Tmp & Chr$(13) & " -> " & Tmp2 & " (len=" & Len(Tmp2) & ")" & Chr$(13)
Tmp = "windows\system\t2win-16.bas"
Tmp2 = cTruncatePath(Tmp, 25)
Tmp1 = Tmp1 & Tmp & Chr$(13) & " -> " & Tmp2 & " (len=" & Len(Tmp2) & ")" & Chr$(13)
Tmp = "c:\windows\system\t2win-16.bas"
Tmp2 = cTruncatePath(Tmp, 25)
Tmp1 = Tmp1 & Tmp & Chr$(13) & " -> " & Tmp2 & " (len=" & Len(Tmp2) & ")" & Chr$(13)
Tmp = "c:\windows\system\visual\t2win-16\t2win-16.bas"
Tmp2 = cTruncatePath(Tmp, 25)
Tmp1 = Tmp1 & Tmp & Chr$(13) & " -> " & Tmp2 & " (len=" & Len(Tmp2) & ")" & Chr$(13)
Tmp = "c:\windows\system\visual\source\t2win-16\t2win-16.bas"
Tmp2 = cTruncatePath(Tmp, 25)
Tmp1 = Tmp1 & Tmp & Chr$(13) & " -> " & Tmp2 & " (len=" & Len(Tmp2) & ")" & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Truncate the following path with a length of 35" & Chr$(13) & Chr$(13)
Tmp = "t2win-16.bas"
Tmp2 = cTruncatePath(Tmp, 35)
Tmp1 = Tmp1 & Tmp & Chr$(13) & " -> " & Tmp2 & " (len=" & Len(Tmp2) & ")" & Chr$(13)
Tmp = "windows\system\t2win-16.bas"
Tmp2 = cTruncatePath(Tmp, 35)
Tmp1 = Tmp1 & Tmp & Chr$(13) & " -> " & Tmp2 & " (len=" & Len(Tmp2) & ")" & Chr$(13)
Tmp = "c:\windows\system\t2win-16.bas"
Tmp2 = cTruncatePath(Tmp, 35)
Tmp1 = Tmp1 & Tmp & Chr$(13) & " -> " & Tmp2 & " (len=" & Len(Tmp2) & ")" & Chr$(13)
Tmp = "c:\windows\system\visual\t2win-16\t2win-16.bas"
Tmp2 = cTruncatePath(Tmp, 35)
Tmp1 = Tmp1 & Tmp & Chr$(13) & " -> " & Tmp2 & " (len=" & Len(Tmp2) & ")" & Chr$(13)
Tmp = "c:\windows\system\visual\source\t2win-16\t2win-16.bas"
Tmp2 = cTruncatePath(Tmp, 35)
Tmp1 = Tmp1 & Tmp & Chr$(13) & " -> " & Tmp2 & " (len=" & Len(Tmp2) & ")" & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cTruncatePath(Tmp, 25)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
Label3.Caption = Tmp1
End Sub
Private Sub TestUncompact()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp = "987654321"
Title = "Uncompact '" & Tmp & "' is "
Tmp1 = Title & cUncompact(Tmp) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cUncompact(Tmp)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestUniqueFileName()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "Generate unique filename with template WN is " & cUniqueFileName("WN") & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
Tmp2 = cUniqueFileName("WN")
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestVersion()
Dim Tmp As String
Dim Version As Single
Version = cGetVersion()
Tmp = Tmp + "Version is " & Version
Label3.Caption = Tmp
End Sub
Private Sub TestWalkThruWindow()
Dim nClass As String
Dim nCaption As String
Dim nOwnerClass As String
Dim nOwnerCaption As String
Dim nOwnerHwnd As Integer
Dim nhWnd As Integer
Dim i As Integer
Frame1.Visible = True
List1.Clear
List2.Clear
List1.FontBold = False
List2.FontBold = False
nhWnd = cWalkThruWindow(nClass, nCaption, nOwnerHwnd, nOwnerClass, nOwnerCaption, True)
Do While (nhWnd <> 0)
i = i + 1
List1.AddItem "[" & Format$(i, "00") & "] " & Right$("0000" + Hex$(nhWnd), 4) & " " & nCaption & " (" & nClass & ")"
List2.AddItem "[" & Format$(i, "00") & "] " & Right$("0000" + Hex$(nOwnerHwnd), 4) & " " & nOwnerCaption & " (" & nOwnerClass & ")"
nhWnd = cWalkThruWindow(nClass, nCaption, nOwnerHwnd, nOwnerClass, nOwnerCaption, False)
Loop
End Sub
Private Sub TestWindowsIni()
Dim Tmp As String
Tmp = Tmp + "DateSeparator is " + cGetDateSeparator() + Chr$(13)
Tmp = Tmp + "TimeSeparator is " + cGetTimeSeparator() + Chr$(13)
Tmp = Tmp + "ListSeparator is " + cGetListSeparator() + Chr$(13)
Tmp = Tmp + "DateFormat is " + cGetDateFormat() + Chr$(13)
Tmp = Tmp + "HourFormat is " + cGetHourFormat() + Chr$(13)
Tmp = Tmp + "Currency is " + cGetCurrency() + Chr$(13)
Tmp = Tmp + "Language is " + cGetLanguage() + Chr$(13)
Tmp = Tmp + "Country is " + cGetCountry() + Chr$(13)
Tmp = Tmp + "CountryCode is " + cGetCountryCode() + Chr$(13)
Label3.Caption = Tmp
End Sub
Private Sub TestWinINI1()
Label3.Caption = cGetDevices() & Chr$(13) & Chr$(13) & "Length = " & Len(cGetDevices())
End Sub
Private Sub TestWinINI2()
Label3.Caption = cGetPrinterPorts() & Chr$(13) & Chr$(13) & "Length = " & Len(cGetPrinterPorts())
End Sub
Private Sub TestWinINI3()
Label3.Caption = cGetWinSection("windows") & Chr$(13) & Chr$(13) & "Length = " & Len(cGetWinSection("windows"))
End Sub
Private Sub TestHexaToX()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "Hexa to Integer" & Chr$(13) & Chr$(13)
Tmp2 = "0"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & Chr$(13)
Tmp2 = "1"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & Chr$(13)
Tmp2 = "A"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & Chr$(13)
Tmp2 = "A1"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & Chr$(13)
Tmp2 = "A1B"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & Chr$(13)
Tmp2 = "7FFF"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & Chr$(13)
Tmp2 = "A1B2"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & Chr$(13)
Tmp2 = "FFFF"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Hexa to Long" & Chr$(13) & Chr$(13)
Tmp2 = "0"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & Chr$(13)
Tmp2 = "1"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & Chr$(13)
Tmp2 = "A"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & Chr$(13)
Tmp2 = "A1"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & Chr$(13)
Tmp2 = "A1B"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & Chr$(13)
Tmp2 = "A1B2"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & Chr$(13)
Tmp2 = "7FFFFFFF"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & Chr$(13)
Tmp2 = "B2A1A1B2"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & Chr$(13)
Tmp2 = "FFFFFFFF"
Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cH2I(Tmp2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub
Private Sub TestBinaryToX()
Dim Title As String
Dim Tmp As String
Dim Tmp1 As String
Dim Tmp2 As String
Dim i As Integer
Dim j As Integer
Tmp1 = "Binary to Integer" & Chr$(13) & Chr$(13)
Tmp2 = String(1, "1")
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & Chr$(13)
Tmp2 = String(2, "1")
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & Chr$(13)
Tmp2 = String(4, "1")
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & Chr$(13)
Tmp2 = String(8, "1")
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & Chr$(13)
Tmp2 = String(16, "1")
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & Chr$(13)
Tmp2 = "0111111111111111"
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & Chr$(13)
Tmp2 = "0101010101010101"
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & Chr$(13)
Tmp2 = "1010101010101010"
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & Chr$(13) & Chr$(13)
Tmp1 = Tmp1 & "Binary to Long" & Chr$(13) & Chr$(13)
Tmp2 = String(1, "1")
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & Chr$(13)
Tmp2 = String(4, "1")
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & Chr$(13)
Tmp2 = String(8, "1")
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & Chr$(13)
Tmp2 = String(16, "1")
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & Chr$(13)
Tmp2 = String(32, "1")
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & Chr$(13)
Tmp2 = "0101010101010101"
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & Chr$(13)
Tmp2 = "1010101010101010"
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & Chr$(13)
Tmp2 = "01010101010101010101010101010101"
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & Chr$(13)
Tmp2 = "10101010101010101010101010101010"
Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & Chr$(13) & Chr$(13)
cStartBasisTimer
For i = 1 To Item
j = cB2I(Tmp2)
Next i
Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
Label3.Caption = Tmp1
End Sub